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SUMMARY 


This report presents the computer programs that have been 
used to study the trajectories of particles in the radial . inflow 
turbines. Included are descriptions of the general technique 
that is followed by each of the programs. A set of subroutines 
that have been developed during the study are described. 
Descriptions/ listings, and typical examples of each of the 
main programs are included. 
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INTRODUCTION 


Particle erosion in gas turbine engines has become important 
because significant decreases in the operating life and rated 
performance have resulted when these engines are used m dusty 
environments. For example, the engines in military helicopters, 
operating at low altitudes and remote landing fields, have signi- 
ficantly shorter life and a more rapid performance deterioration 
rate than engines operating from hard surfaced landing fields and 
at higher altitudes. Although these helicopters have main engines 
which utilize axial flow turbines, some also have auxiliary power 
sources for special devices which utilize radial turbines, as 
shown schematically in Figure 1. Radial inflow turbines have also 
been used on small portable power plants which are also likely to 
be used in areas where dust ingestion will occur. Radial inflow 
turbines also are seriously being considered for future use in 
advanced helicopter engines and transportation vehicles such as 
trucks, buses, and automobiles. These engines will at times have 
incomplete filtering of incoming air, leading to the ingestion 
of erosive-size particles that could seriously degrade engine 
performance. 

The radial turbine engines have, however, a more serious 
erosion problem than axial-flow turbines. In radial turbines, 
the heavier particles can experience a radially outward centri- 
fugal force that is greater than the radially inward component of 
the aerodynamic drag force. In the axial-flow turbine, the centri' 
fugal force acts perpendicular to the aerodynamic drag force. 

Thus, in radial turbines the heavier particles can be trapped 
between the stator and rotor, resulting in the particles striking 
the trailing edges of the stators and the leading edges of the 
rotor many times. In axial-flow turbines, the particles generally 
move outward to the tip region, but all particles have a tendency 
to pass through the turbines. 

As a result of the wide interest in using radial turbines 
and because erosion seems to be more severe in radial turbines, 
an investigation was sponsored by the NASA Lewis Research Center 
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to study erosion phenomena in radial inflow turbines and to find 
ways of eliminating this erosion. Included in this investigation 
are analytical studies of particle trajectories through a radial 
inflow turbine and predictions of the effect of blade materials 
erosion by the action of particles. The results of these in- 
vestigations will be published in a series of five volumes. 

Volumes I through III (1, 2, 3) have dealt with the concept 
of erosive particle trajectories and studied the approximate 
velocities and types of impacts that occurred on surface inside 
a radial turbine as particles moved through the turbine. 

Volume III (3) indicated several possible problem areas 
within a radial turbine. The first is the region at the end of 
the scroll, where the more rapidly changing radius of curvature 
causes more moderate angle impacts by the particles. Because of 
the nature of the motion of particles in the scroll, those 
particles that do not immediately enter the stator will tend to* 
accumulate and enter a few of the blade passages near the scroll 
exit. Volume III also revealed that most heavier particles will 
become trapped in the vortex region of the turbine and repeatedly 
strike the trailing edges of the stator and the rotor leading edge. 

Volume IV (4) presented an analtyical study of the rate at 
which material is removed by ingested dust impinging on the internal 
surfaces of a typical radial turbine. The study indicates that 
there are several regions which experience very severe erosion 
loss, and other regions that experience moderate levels of erosion 

loss . 

The purpose of this report (Volume V) is to present the com- 
puter programs that have been developed to trace the particle 
trajectories through the various parts of the radial inflow 
turbine. The programs will be useful for any future study of 
the erosion phenomena that might be considered for a given turbine. 
Several studies involving computer programs are cited within this 
report. These programs have been used to determine the gas flow 
solutions in a given geometry and do not offer a comparison with 
the trajectory trace programs. 
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A set of the program source decks on tape is available from 
COSMIC (Computer Software Management and Information Center) , 
Computer Center, University of Georgia, Athens, Georgia 30601. 
The programs can be ordered by using the number of this Report 
as Identification. 


GENERAL NUMERICAL TECHNIQUE 


Main Programs 

Much of the analytical work that has been done in this 
series of reports has required the numerical solution of the 
ordinary differential equations that describe the motion of a 
particle in a gas flow field. These equations are derived in 
Volume III (3) ; and their final form which will be integrated 
numerically is given as Equation (17) in the same reference. 
These equations are expressed as a set of first order ordinary 
differential equations by assuming 

= r 

y 2 =* fir/fit 

y 3 = e 

y 4 = 68/fit 

y 5 - 2 

y g = fiz/fit ( 

equations of motion can then be expressed as 

= y^ 2 + 2y x y 4 « + y^ + B M v r ~ g cos(e-o) 
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6y l 
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dy 2 

fit 


dy 3 
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[-2y 2 y 4 - 2coy 2 + b|v|v q + g sin(6+o)3 


fiy 5 

sir - *6 


Sy., 

= B|v|v z - g sin<S> 


C A C 

Where B = i -2— = ~ — for spherical particles. The terms 
2 m 4 PpDp 

V , V and V represent the velocity of the gas relative to the 
r 0 z 


moving particle, 


V r = w r - y 2 


v e = w u ' y l y 4 


V s = w z - y 6 


In the solution of these equations, a fourth order Runge- 
Kutta integration technique, as described in Reference 5 was 
used. The form of the integration formula is 

y i+l,j = y i,j + I <k lj + 2k 2j + 2k 3j + k 4j> (4) 

« 

for the differential equation 1^- = f (x,y) 


where k^. = f-(x^,y^) 


k„i = f. <x, + i h, y 4 + i h k.. .) 



( 5 ) 


k 3j " f j (x i + I h ' y i + ? h k 2j > 

k 4j = f j (x i + h ' y± + h k 3j ) 

The values of the function f ^ corresponding to the equations 
of motion (2) are: 

v 2 

Yl y 4 2 + 2 y;l y 4 w + Yl u 2 + BjViV r - g cos(0-o) 

f 3 = ^4 

f 4 = [-2y 2 y 4 - 2uy 2 + B|v|v 0 + g sin(e+a)3 

f 5 = y 6 

f 6 - B|v|v z - g 1 sin 4 

In Equation (4) , h represents the time increment between 
integration steps. In most of the work that is presented here, 
a value of lx 10 -5 seconds was used. One of the longest 
trajectories in the scroll was calculated with different time 
increments to study the deviation in trajectories as the time 
increment decreased. The results of this numerical experiment 
are presented in Figure 2 which shows the variations in the 
angular position of the particle when different time increments 
were used. At the smaller time steps, the round off errors can 
be reduced by switching to double precision. As the time 
increment increases, the truncation errors can only be reduced 
if a higher order numerical procedure is considered. In this 
example, the trajectory is approximately 100 cm long and the 
deviation of the trajectory by one degree would correspond to 
a linear distance of 0.3 cm. In most of the regions in the 
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turbine, the total distance traveled by the particle is much 
shorter than the distances indicated here; so the corresponding 
error in the position of the particle would also be much smaller. 
Also indicated in Figure 2 is the amount of central processing 
unit (CPU) time that was required for the various solutions. 

As the time increment decreases, the computational time required 
to complete the solution increases. 

In the programs that were used to calculate the gas flow 
field, the magnitude and direction of the velocities were 
determined at the grid points. A linear interpolation technique 
was used to estimate the magnitude and direction of the gas 
velocity at the points within the grid. An iteration scheme was 
used to calculate average gas flow field properties which were 
needed in the particle trajectory calculations at each time 
increment. Figure 3 illustrates the general procedure that 
was followed in this iteration scheme. After integrating the 
equation of motion over the time segment, the magnitude and 
direction of the gas velocity and the gas properties at the 
new particle location are found and used to calculate an 
improved estimate of the average velocity components and 
average gas properties. The program compares the new estimated 
average values with the old average values; and, if necessary, 
reintegrates the equations of motion to find a corrected 
new location for the particle. Usually the procedure 
converges in only a few iterations. In a few cases where the 
particle size was quite small, the procedure failed to converge 
in 100 iterations. When a smaller time increment was used, the 
solution could be found beyond the point where the iteration 
technique failed to converge. 

Generally, all the programs listed in this report will 
calculate several similarity parameters that are useful in 
relating different particles that have similar trajectories. 

These similarity parameters are explained in greater detail 
in Volume I (1) of thif series of reports, but it is worthwhile 
to define the terns that are calculated by the programs. 
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The characteristic length as calculated in the programs is 
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10 


P D 

P P 

3 * 


(7) 


This parameter can be used to relate trajectories of different 
particles in equivalent flow fields as long as the Reynolds 
number of the particle is generally greater than 500. If the 
Reynolds number drops below 500/ the two particles may not 
follow precisely the same trajectory/ but the trajectories will 
not be significantly different. 

The time constant as calculated by the programs is 


T 


P D 

P-P- 

18 


( 8 ) 


This parameter generally applies to very small particles because 
its application is restricted to cases where the particles 
Reynolds number is less than 1. 

An approximate Reynolds number is calculated using critical 
gas flow properties and one half the gas velocity. This term 
calculated by the programs is 


Re. 


p (V /2 . ) D 
p q v cr p 


cr 


Although this term was retained in the programs, experience 
shown that is is not necessarily typical of the particles 


(9) 

has 


Reynolds number. 

Several special duty subroutines were used in conjunction 
with the main program to solve the particle trajectory. The 
remainder of this section will describe the subroutines that 
were used. In some cases, slightly different versions of a 
subroutine were used because of different types of geometry 
that occur between cases. The source deck listings of the 
programs contain the main program and all required subroutines . 
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Subroutine BOUNCE 


The subroutine BOUNCE can be used in any program that deals 
with the trajectories of particles in a flow field where it is 
necessary to allow the particles to bounce off a surface. Gener- 
ally, the main program will trace the particle trajectory and, 
at each new point along the trajectory, the main program! should 
check the position of the particle. When the new position of 
the particle is found to be outside the boundaries of the contour 
surrounding the flow field, the main program specifies in ordered 
arrays the trajectory characteristics of the particle and the 
orientation of the boundary surface near the location where the 
particle impact occurs. The main program then calls BOUNCE, which 
determines the location where the particle trajectory intersects 
the surface and the time increment required for the particle to 
travel from the last point of the completed integration to the 
surface. The subroutine then returns the bounce point, and the 
time corresponding to the particle motion away from the bounce 
point. Figure 4 illustrates the surface, particle trajectory 
intersection. 

Referring to Figure 4, the point P is the last point along 
the trajectory that is still in bounds and point PP is the next 
point along the trajectory that is out of bounds. Since these 
two points are vector quantities within the program, the particle 
velocity is calculated from the following equation: 

V = (PP - P)/h UO) 

Where h is the time increment used in the integration step. 

The description of the surface near the location of the 
bounce is done in the main program by specifying three points 
that lie on the surface. These points are indicated by the 
position vectors A, B, and C within the subroutine. The sub- 
routine then determines vectors AB and AC which lie in the 
surface, where 


9 


Next the subroutine determines the unit vector normal to 
the surface by calculating the cross product of AB and AC, 
and then dividing by the magnitude of the resulting vector. 
Indicated below is the equation form of this operation. 


AB x AC 


i 

j 

k 

AB 1 

AB 2 

ab 3 

7 \ r* 

AC 2 

AC 3 


(AE 2 

ac 3 

- AB 3 

ac 2 ) 

' i 

+ 

* 

(ab 3 

AC 1 - 

AB 1 

AC 3 ) 

+ 

<“l 

ac 2 ~ 

ab 2 

AC X ) 


(13) 


(14) 


un = y . s ..* 5 

AB X AC 


UN 1 I + UN 2 j + UN 3 k 


(15) 


If |AB x AC | *= 0 , the subroutine returns NFIX = 0 . 

This corresponds to a case where points A, B, and C lie on a 
straight line and hence are not sufficient to describe a 
surface. 

The next step in the solution of the bounce problem is the 
determination of the point, PB, where the particle bounces off 
the surface. This is determined by solving simultaneously the 
equations of the plane given by the unit vector UN and the 
point A and the straight line connecting the points P and PP 
of the trajectory. The equation of the plane is 


UN 1 (x-A 1 ) + UN 2 (y-A 2 ) -i- UN 3 (z-A 3 ) = 0 


(16) 



The equations for the line trajectory are 


x-P 


1 





( 17 ) 


These can be arranged into a set of three equations with 
three unknowns. 


UN 1 x + UN 2 y + UN 3 z = 


V 2 x “ V 1 y = °2 

v 3 x - V 1 z = D 3 


.(18) 


where 


D 1 = UN 1 A 1 + UN 2 A 2 + UN 3 A 3 


D 2 = V 2 P 1 " V 1 P 2 


°3 = Vl " V 1 P 3 


(19) 


The solution of these equations does not exist when the coefficient 
determinant is zero. The coefficient determinant is: 


UN, UN 2 UN 3 


V 2 “ V 1 
0 


0 

- V. 


°*1 V 1 + UN 2 V 1 V 2 + UK 3 V 1 V 3 


( 20 ) 


The coefficient determinant will be zero in the special cases that 
are outlined below. 

Case 1 . If UN^ = 0 , V 2 = 0 , V 3 = 0 , then the surface is parallel 
to the x axis and the particle motion is also parallel to the x 
axis. This event could not cause a bounce to occur. 

Case 2 . If UN^ =0, UN 2 = 0, and V 3 = 0 , then the surface is 
parallel to the (x,y) plane and the particle motion is also 
parallel to the (x,yj plane, then the particle does not bounce. 
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Case 3 . If Ut^ = 0, UN 3 = 0, and V 2 « 0, then the surface is 
parallel to the (x,y) plane and the particle motion is also parallel 
to the (x,y) plane, and no particle bounce takes place. 

Case 4. If = 0, then the x coordinate of P and PB are the same. 
The solution of the intersection problem then requires use of 
only one of the equations for the line segment. The new equation 
set is 


UN 2 y + UN 3 z = D 4 
V 3 y - V 2 z = D 5 


( 21 ) 


where 


D 4 “ D 1 - DN 1 ' P 1 


D 5 “ V 3 P 2 ' V 2 P 3 


( 22 ) 


The solution of this system of equations, with PB^ — P-^ provides 
the intersection point. In this case, the determinant can be 
written as 


(un 2 v 2 + un 3 v 3 ) = 0 

It can be equal to zero if V 2 = 0, and UN 3 =0 in which case 
the surface is parallel to the (x,y) plane and the particle moves 
in the direction parallel to the z axis. Thus, PB 2 = P 2 and 
PB 3 = A 3 . This may also occur when v 3 = 0, or UN 2 =0 in which 
case the surface is parallel to the (x,y) plane and the particle 

moves parallel to the y axis. Then PB 2 = ^" 1 ' = ^3 * 

All cases have been considered so far, since the three veloci.-’-y 
components V 1 , V 2 and V 3 cannot be all equal to zero. 

The subroutine next calculates the distances between PB 
and P, PP and P, and PB and PP. These distances can be expressed 
in equation form as 

DPB = | PB - P | 

DPP = ]PP - Pi 

DPPB = | PB — PP | (24) 
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Figure 5 illustrates a situation that can occur sometimes 
near a surface. If the main program specified points on surface 
2, the incorrect bounce point is determined as indicated by the 
dashed extension of the trajectory. Similarly, referring to 
Figure 6, the incorrect bounce point which is obtained if the 
points'' on surface 1 are specified in the main program. This 
type of error is avoided by consistently using surface 1. The 
distance DPP = |pp - p| is calculated and the subroutine checks 
to insure if it is greater than the distance DPPB « |PP - PB| . 
If DPP < DPPB, then the subroutine returns NFIX —2. The main 
program should be written to recognize this and to switch to 
the appropriate surface. 

The subroutine next uses one of two methods to determine the 
velocity components of the particle as the particle bounces from 
the surface. Method 1 is used when DPB >_ ~ DPP. In this case, 
the particle travels over more than half the time segment before 
the impact occurs. Figure 7 illustrates the technique that is 
used. The first step in the subroutine is to determine the point 
PN which is the normal projection of the point P onto the surface 
This is found by solving the equation of the plane, Equation (16) 
and the equations of the line that passes through the point P 
and is normal to the surface: 

x- p i _ y-P 2 _ Z ~ P 3 (25) 

UN 1 UN 2 UN 3 

The following set of three equations are obtained from the above 
relations and the equation of the plane: 


UN 1 

X + 

UN 2 

y + 

un 3 

z = Dj. 

un 2 

X “ 

i — ! 

53 

O 

Y 


!! 

a 

to 

un 3 

X 


- 

UN 1 

a = D 3 


( 26 ) 
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where 


D 1 

“ ^1 

A 1 + 

un 2 

A 2 + ^3 A 3 


D 2 

= un 2 

P 1 - 

UN 1 

P 2 


°3 

- ^3 

P 1 ~ 

™1 

P 3 

(27) 


The solution of this system of equations gives the desired 
position vector PN. As in the solution of a similar set of 
equations for the bounce point, there are special cases that 
cause the determinant of the coefficient matrix to be zero. 

This determinant is 


UN 3. 

UN 

UN 2 

-UN 

un 3 

0 


UN. 


0 

-UN. 


= UN 1 (UN 2 + UN 2 + UN 2 } 


(28) 


The only possible case when this determinant would be zero occurs 
when UN X — 0 . If this occurs, then PN^. = P x = x and a 
second system of equations can be determined such that 


UN 2 y + UN 3 z = D 4 

UN 3 y - UN 2 z = D 5 (29) 

where 

d 4 = D l “ UN l P l = D 1 

D 5 = UN 3 P 2 - UN 2 P 3 (30) 

The solution of this set yields PN 2 and PN 3 . The determinant of 
the coefficient matrix of this last equation cannot be zero 
unless the surface unit normal vector is zero, which should not 
occur. 

The portion of the time increment that is needed to travel 
from P to PB is given by 

DTIME = DPB/VPP (31) 
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This^time segment is used to calculate the components of the 
tangential and normal velocities. The tangential velocity 
is determined from the equation of the line between the points 

PN and PB: 


PB = PN + v (At) 


(32) 


(33) 


The incidence tangential velocity components are expressed in 
the program as: 

V tl = (PB 1 - PN X )/DTIME 

v t2 = (pb 2 - pn 2 )/dtime 
V t3 = (PB 3 " P n 3 )/ DTIME 

in a similar way, the points P and PN are used to determine 
the normal component of the incidence velocity vector. 

V i = (PN 1 - P 1 )/DTIME 

V ^ = (PN- - P )/DTIME 

nz z ^ 

v ^ = {PN- - PJ/DTIME 
n3 3 J 

The subroutine BESTCO is then called to determine the normal 
and tangential restitution coefficients. These coefficients are 
dependent upon the magnitude of the incidence velocity and the 
incidence angle. ETA ( 1) is the normal restitution coefficient, 
and ETA ( 2 ) is the tangential restitution coefficient. 

With these, the subroutine then determines the velocity 

components of the particle as it travels away from the point PB. 


(34) 


VP = ETA ( 1) V t + ETA (2) V n 


(35) 


Finally, the subroutine calculates the time elapsed, which is 
given by 

(36) 

T = T + DTIME 
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Method 2 is used when DPB < if DPP. In this case, the 
particle travels over a very short distance along its trajectory 
between P and PP before it encounters the surface, including 
the case when the point P lies in the surface. Figure 8 
illustrates the technique that is used. 

The procedure is quite similar to Method 1, except that now, 
PN is the normal projection of the point PP onto the surface. 

This point PN is found by equations that are similar in form to 
those used in the previous method. The difference is that in 
the places where coordinates of P occurred in the previous 
equations, the coordinates of PP now occur. Next the portion of 
the time increment that would be used to travel from PB to PP 
is determined using 

DTIME = H - DPB/VPP 


The points PP, PB, and PN are used to resolve the velocity into 
the tangential and normal components, which are given by 


V, . - (PN. - PB.) DTIME i = 1, 2, 3 
tr x i 


V . = (PN. - PP.) DTIME i = 1, 2, 3 
iu i i 


(38) 

(39) 


With the restitution coefficients found from RESTCO, the new 
velocities are determined as in the previous case. With the time 
correctly incremented to allow for the particle to travel to the 
surface, given by 

T = T + DPB/VPP ( 40) 


The following pages contain a listing of the subroutine 
BOUNCE . 
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1000 RnpvAT(47H ROUNCF HAS 2FR0 UNIT VECTOR DESCRIBING SURFACF ) 

PFTUPN 

20 on 30 1=1 ,3 
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G ( 3 , l ) = V ( 3 ) 
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IF DPTfapf/INANT FQUALS ZERO, OIJ TO 90 

HI ARSinFTA ).LE.1.0F-12 ) GLJ TO 90 
on 70 K = l » 3 
DO 50 1=1,3 
no 50 J = l , 3 
50 GS( I , J)=cu ,J) 

DO 60 1=1,3 
60 GS( I ,K ) = DID 

PR(K)=GS( 1 ,l)*GS{2,2)*OS{3,3)+GS( l ,2 ) *0S ( 2 , 3 ) *GS ( 3 , 1)+GS( 1,3) 
l *GS ( 2 , l> *GS( 3,2 l-GSl 3,1) *GS 12,2) *GS( l, 3)-GM 3, 2 ) *GS1 2, 3 ) *GS( 1 , 1 ) 
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2 -GS(3t 3)*GS(?f l)*GS(l*2) 

70 P‘» (K.)=PR{K)/0F-TA 
Gl) TM 100 
C 

C IF r»FTF~fNi'\ANT F-JIJAIS ZFRO, POINT P IS ON SURFACf, P FOUALS PB 

r 

80 PB( 1 ) = P( 1 ) 

n{ 4) =D{ I ) -UN ( 1 ) SP t 1 ) 

D( 5)=VI 3)*P( 2)-V( 2) #P( B) 

OFTAs-UN( ?)*Vl 2 J-UNI3) *V( 3) 

T r ( ABSlOf TAJ.LT. l.OF-12) 00 TO 85 
OGL?)=(-D(4}*V(2 l-0(5)*UN(3) ) /OF T A 
'’P ( 3) = ( UNt 2 ) *P( 5 )-V l!3)*0{4) } /OFT A 
G.J TO ICO 

8 5 I F ( .mS(V(3n.GT.1.0r-l2) GO TU 90 
P M 2 ) = P ( 2 ) 

0 3(?)=A( ?) 

GO TO 10 0 

90 n ; M 2 ) = A ( 2 ) 
p o t 3 J = P < 3 ) 

1J0 CoNTINUr 

1PP= SORT (I PP{ 1 ) — P C 1 ) ) *#2+ (PPI2I— PI2) )**2+C PPl 3 ) — P { 3) )**2) 
ppt= SORT I (PRl 1 > — P ( 1J J* , < t 2 + (PB(2) — P(2) ) 2* ( PR( 3J-PI 3) )#*2) 
r>DDB=SOHT I ( PP( 1 }-PP ( l »)**2 + I PPI2 )-PR (2 ) ) **2 + tPP( 3J-P81 3) 1**2 ) 
IFI(nppp. lt.OPP). AND.IDPB.LT. DPP) ) CD TO 103 
I X=2 
TU U N 

103 CONTINUF 

1 F ( npH. LT . (0.5*DPP ) ) GO TP 180 

r 

c n E T F u M [ N F THE ! JT FR 5F C T TON POINT, PN, OF THF SLRFAGE NORMAL THRU P 
C IF hftfwMINANT FQtJALS ZFP0, GO TO 140 
C 

OFTA = UN{ 1 ) **3 + UN‘l I ) *UN ( 2 } **2+UNl 1 ) *UN{ 3) **2 
I F ( ABSIDFTAJ.LF.l.OF— 12) GO TO 140 
m p ) = P t i)*UM(2)~P(2)*UN( 1) 
n ( 3 ) =P I 1 )*UN (3 )-P ( 3 )«IJN( l ) 

0(2,1)= UM2 ) 

G( 2,2) =-UN ( l) 

G(2,3)=0.0 
G( 3, I) = UNO) 

G( 3,2 ) =0. 0 
0(3,3) =— UN ( 1 ) 

Of i 130 K = l , 3 
on u o 1 = 1,3 
n 1 110 J = 1 , 3 
110 G S { I , J 1 =G ( I , J ) 
nn 120 1=1,3 
120 GSI T ,K) =o ( I ) 

PN ( K ) =GS(1 , 1) *G$ ( 2 , 2 ) *GS { 3 , 3 1 +GS 1 1 , 2 ) *GS ( 2 , 3 ) #GS ( 3 , l ) *GS( 1 , 3 > 

1 *DS( 2 , 1 ) *GS (3 ,2 )-GS(3 , 1 ) #GS I 2,2 ) *GS I 1 , 3 )-GS( 3 , 2 ) *GS ( 2, 3 )*GS( 1 , l ) 

2 -GSI 3,3)*GS(2,1)*GS(1,2) 

130 PM I K ) = PN( K ) /OFT A 



v G L c vrL ?l 


POUNCF 


PA T F = 75182 


16/47/45 


GO Tu 160 

i^o pn( n=p( n 
014) =0( 1 1 

P( 5)=UN(3)*P(2 )-UN(2)*P( 3) 
nFTA^-UM 2 1**2 -UN (31**2 
P i ( ? ) = ( -n ( 4 ) *UN ( 2 1 -o ( 5 ) *UN ( 3 } ) /n P T A 
r*' (3 ) = (UN(?) *r>(5 )-UN( 3 )*0( 4) ) /OFT A 
loo C •'NT! NU r 
f 

C tptFk-'TN 1 * PfRTIUN OF T IMF SFGMFNT IJSFO TC! TPAVFl FROM P TO PB. 
r 

n T l Mf =PPR/VPP 
T r ( PTTVr.LT .H) Go TO 163 
MT‘-(6 t 1010) 

10 LJ F MMI (2 4h nTIMf IS GREATFR ThAN H) 

Ii IT =0 
-■ - TIJRm 

c 

r FX T r>tT LIN r PM-Pfl THF PROPER PISTANCF TQ ^ T fsj r» PNP. 

r. T up n| f : XTFNT A I INF N U P M A L TO THF SURFACE FROM PNP TO GFT THF POINT 
r AFTFR P1UNCF, PP. 

C FPJP VELOCITY COUROTMATES BASFO CN PP, PB AND TIME REMAINING IN 
C SFr,*ies|T. 

C 

16 3 ">» 165 1=1,3 

V T ( I) « ( P P ( I >-PN( I 1 1 / TT IMF 
165 VM I 1 = ( PMI )-P(I 1 1/niIMP 

VT( 4) = SOT T( VT{ 1 ) **2+VT ( 2 »**2+VT (31**2) 

V?J ( 4 ) - Si.RT ( VN ( 1 ) **2+VN( 2 )**2+VN( 31**21 
r ALL RFSTrP(VM(4) ,VT(4) »FTA) 

00 170 1=1 .3 

p i P( i ) =pr\ ( [) +f- r A ( 2 1 *VT ( I 1 * l H-DT IMF ) 
op( I)= p NP( T)- p TA(l) *VN ( T ) * { H-DT I MF 1 
170 V P { I )=(PP( I 1 — P tf ( I 1 1/ (H-OT IMF) 

T=T + m 
op TU B N 
C 

C IF POINT P L T r S ON SU R F AC F t USF POINT PP TO OFTFRMINF AFTFP 
C o r UNCF STATE, 
r 

180 f ij iiTINUF 

OL TA = iJM 1 1 ** 3+UM { 1 1 *UN ( 2 ) **2+UN( 1 1 *<JN( 3) **2 
I F ( ABS(OFTA ).LF.1,0F-12) GO TO 220 
M( 21 s’Pl 1 1 *UN(2] -PP( 2) *UN( L) 

0(3) =PP ( 1 1 *UN( 3 1 -PP ( 3) *UN ( 1 ) 

0(2,11= UN (2) 

0(2.21 =-UN ( 1 1 
G ( 2 , 3 1 = C • 0 
0{ i, 1)=UN(3) 

G( 3,21=0.0 
G( 1,3 ) = -UN ( 1 1 
n:- ^lo K = 1 ,3 
0'' l A) 1=1,3 



II 
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"v r. L'va > i pouncf ciatf = 751 R? 16 / 47/45 

-j 

no 193 J= l » 3 

r t9o os( 1 , j) =r ( 1 , jj 

l[i no 200 1 = 1,3 

2)0 os ( F » k ) = r ( 1 ) 

p M( K) =r,S( 1 » L )*GSI2,2> ( 3,3 ) *0S< 1,2 )*GS< 2, 3 )*GSI 3, 1)+GS( 1 , 3) 

1 *GS(2, l)*C.St3,2)-GS(3,U*GS(2,2)*GS(i,3)-GS(3,2)*GS<2»3)*GS( 1,1 ) 

1 2 -GM3,3)*CS(2,l)*GSIl,2) 

2 L 0 «»N(K)=PMK)/nF.TA 
GO TO ?40 

li 220 PVU|=PP(U 

n( 4) =0( 1 J 

T 'M 5)=iJM3 )*PPI 2 )-UN( 2) *PP( 3) 

I nPT4 = -UN'I 2 ) *UN{2 I-IJN13 } *UN { 3 ) 

p N( 2) = (-r*(4) *IJN(2 1-0(5)* UN (3 ) J/DETA 
PM?) = (liNC2)*n<5 J-lJN(3)#nCAl J/OFTA 
j: 24 0 CONTINUE 

r 

c '>FTF 0 M [M = PC R T I ON* r)c T JMF S p GM c: fMT REMAINING FOP TRAVEL FROM PR TO PP„ 

I r 

OT lM r =H— opp /VPP 

IC(nTIMF.rT.l.OF-lZ) GO TO 245 

-r WRTTP( 6,1020) 

f L 02 0 e~owa T (21H DT IMF LFSS THAN ZERO) 

NFIX=0 

octijrn 

j r 

i r r iFTF^,I»JF TH F PPPPFR DISTANCE ALONG PN-PB TO FIND PNP„ 

C T H C N C XTFNT A L. IMF NORMAL TO THE SURFACE FROM PNP TO GFT THF POINT 

j r AFTER Rfj.JNCF, PP« 

f r F I NH VELOCITY COOROTNATFS BASFD on PP„ PB, AND THE TIMF H, 

C 

245 nn 250 1=1,3 

| VT{ U=( PN( n-PBII) J/DTTMF 

250 VM( I ) = { PPm-PNU) > /DT IMF 

V T ( 4 ) = SDRTIVTI L) ««2 +V T ( 2 ) **2+VT ( 3 ) **2 ) 

| VM{4)= SORT! VN{ I>**2+VN{ 2 )**2+VN( 3 )**2 ) 

.! CALL R‘ r STCO(VN(4),VT(4), FTAJ 

DO 2ou T = l , 3 

i PNP(T )=PR(T )+rTA[2)*VT{ I )*DTIMF 

j PP( I) = PNP { I ) — F T A ( 1 )*VN( I )*DTIM C 

260 VR(I) = (PP( T )-PB{ Tn/DTTMF 
T = T + H 

| PE TURN 

J 
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Subroutine RESTCO 


It was necessary to develop expressions for the normal and 
tangential restitution coefficients to describe the momentum 
loss experienced by a particle when it bounces off a surface. 
Initially, constant values of restitution coefficients were used. 

As a result, the particles that struck the surfaces many times, 
lost momentum with each bounce and eventually came to rest against 
the surface. This is unrealistic to occur, and therefore the 
available data on restitution coefficients was reviewed and the 
information obtained used to develop a set of empirical equations 
that would describe the restitution coefficient for all incidence 
velocities and all incidence angles. 

Data given by Grant (6) and Ball (7) indicate that the res- 
titution coefficients were functions of both the incidence angle 
and the particle incidence velocity. The data given by Ball (7) 
is perhaps more realistic because it applies to Titanium and 
Stainless Steel alloys which are more typical of blade materials 
that are used in radial inflow turbines. However, this data is not 
as extensive as the data given by Grant (6) for an Aluminum alloy. 
Because the more extensive data gave a better description of the 
variations that could be expected, the aluminum alloy data was used 

The emperical expressions arrived at for the normal and 
tangential restitution coefficients are 

n N (e,V) = 1.0 - 1^(8) i// 2 (V) 

n T (B,V) = 1.0 - ^(8) $ 2 (V) (41) 

In this expression, and rirp are the normal and tangential res- 
titution coefficients and if/^, if <j> 2 are empirical functions 
which go to zero as the argument goes to zero. 

Figure 9 shows the data obtained by Grant (6) for the normal 
restitution coefficient variation as the impingement angle changes. 
An assumption was made that ^ 2 is one when the velocity is 76.2 
meters/sec., and then a polynomial curve was fitted to the data 
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points. Table 1 gives the coefficients of this polynomial for 
the normal restitution coefficients. The variation of the normal 
restitution coefficient with the incidence velocity is shown in 
Figure 10. The experimental data points of Reference 6 are shown 
in the same Figure. It was assumed that the normal restitution 
coefficient increases to one as the incidence velocity decreases 
to Kero. In order to develop the empirical equation for i> 2# the 
value of * at 45° was used. A value of * 2 equal to one was taken 
for incidence velocity of 76.2 meters/sec. The following expression 
was developed to express ^ 2 S 


*2 


0.65 (1.0 


e -V/24.5 } 


(42) 


Equation (42) and the polynomial expression for the variations 
due to the incidence angle were combined into a complete empirical 
formula for the normal restitution coefficient. Figure 11 illu- 
strates the variation in the restitution coefficient with the in 
cidence velocity and the incidence angles, according to the emper- 
ical equation. 

In a similar way, the data given in Reference 6 for the tan- 
gential restitution coefficients at an incidence velocity of 76.2 
meters/sec., was fitted with a polynomial expression as shown in 
Figure 12. In addition to the experiment 1 data points that were 
used, it was assumed that the tangential restitution coefficient 
was equal to one for incidence angles of 0° and 90°. The last two 
values were used, with the experimental data and these points were 
also used in the evaluation of the polynomial coefficients which 
are given in Table 2. Data on the variation of the tangential 
restitution coefficient with incidence velocity is indicated m 
Figure 13. It was assumed that the restitution coefficient goes 
to one as the tangential velocity goes to zero, this and the two 
points of the experimental data showed linear variation. Figure 
14 shows the family of curves of the tangential restitution coef- 
ficient versus incidence angles for different incidence velocities 
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Because of the linear variation in restitution coefficient with 
incidence velocities/ very low restitution coefficients are cal— 
culated for very high incidence velocities. A lower limit of 
0.1 was placed on the allowable value of the restitution coef- 
ficient as indicated in Figure 14. 

The next page contains a listing of the subroutine RUSTCO/ 
which receives the normal and tangential velocity components from 
the calling program and returns the proper values of the restitution 
coefficients. 
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iv r. t r v r i 21 


rf st co 


oatf 


75iri2 


16/47/45 


SU*»«-'UJTIN r PFSTroC VN»VT* p TAI 

OJMFNS It N r T A { 2 ) » A ( 10) » B( 10) 

(nr a \/ l.w 190, 5. 1 171,-49.2529, 13 l.03t>2 8,-17 4.4?49, l l 7.8723, 
l -24.47085,-16.7297,11.2300,-1.979996/ 
n/\ T A 8/6.7215,-4 1.8308,17b. 1685, -4 24. 3882,572. 76 3 1 , -406 . 66 2 5 , 

1 87. 14? f. ,70.8 51 1 ,—50,4982 ,9.6767/ 

C 'A AT. A I*; t h i <; <;u4*.-mit INF COURT SPC.itOS TO V p LnCITTFS IN FT/SFC. 
f vATFRTM TYPICAL (;F ALUMINUM AND SILICON PARTICLES. 

C r T.\(lJ IS THF M.RMAL RESTITUTION CC F. F F I C I F NT • 

C FT4(2) IS THF TA, 5PMIAL RESTITUTION COEFFICIENT. 
r 

-4CTA = ATAF 2( VN, vn 
V=SQRT { V A * * 2 fVT**! t 2 ) 

DHT0NE=V/250.00 

•MITWils M lJ«8ETA + A(2>*HFTA**?<-A(3)*BFTA«*3 + AlH)#RFTA*-r4 

L tl|i| FT A*»5 + A ( 6 ) #ftFT A**6+A ( 7 ) *RFTA**7-t-A {8)*RFTA>s*R 

2 fA( 9 ) *HFTA*#9+A( lOJ^FTA** 10 
‘ J -II = PHir\'F<=PHITWO 

tr ( pmi .CT. 0.991 PHI=C,90 
STM ?) =1. 000-PHI 
PS!UN r =1.0000-FXP (-V/36.000J 

PS I T,40= 8 ( 1 )#8FTA+» (?}*r-ETA**2 + 8(3)*BFTA**3 + P(4)*BFTA**4 

l *n (5 ) «pF‘T^ijt«5+B{ 6) #R FT A# #6 + 8 ( 7) #B C TA## 7 + R ( 8) *3FTA##W 
1 ^ ) «wfTA 4*9 + 8(10)* BETA*# 10 

»Sl =PSn;NF* PST TWO 
I F ( P S I .r,T. 0.900) PS 1=0.900 
r I A ( 1 ) = 1 . 000- n S I 
i? = TOR N 


Subroutine RNUMBR 

Another subroutine that is used throughout this set of 
programs is the subroutine RNUMBR. This subroutine uses the 
Reynolds number determined by the calling program to find the 
drag coefficient for a sphere. The equations which are used to 
describe the drag coefficient are: 
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C D " 4 ' 5 + S 


Re < 1.0 


C D = 28.5 - 24.0 (Log Re) + 9.0682 (Log Re) 


1.7713 (Log Re) 3 + 0.1718 (Log Re) 4 - 0.0065 (Log Re) 5 


1.0 < Re < 3000 


C D = °‘ 4 


3000 < Re < 2.5 x 10 


-5 


(43) 


This subroutine includes a factor DGFC, which can be used 
to determine the drag coefficient for non- spherical particles. 
A listing of this subroutine follows. 


Program Listing RNUMBR 



iv r, i r v c l ?i 


PNUM^P 


DATF 


7518? 


16/55/51 


S ! )K p > l. JT I NF PMiJMRR ( PFf*.OL.n»nCFr,Cn) 

IF{ 4RS(RFMUn}.LT„ l.OP-12) PFNOL0= l„O c -I2 
IFlwFNfJLn.LT.l.O) GO TO 2b 

fF((wFNCH.n.r,F. 1 . 0 ),AMl.(RFNnLn.l T.1.0E3) ) r,r TO 27 
CO-OGFOO.A 

PR TI.IPN 

2F rn=nr,Fr*( A.b+?4.0/PFF0LO) 

'PTUP'i 

? 7 AS p = A LOG ( H Ff.'ll D ) 

ro*< ?*l. W4. d*A«n + ** .0682*A»F**2-L .7 713*Afr p **3+0.1 7 18*ARF**4 
l -0 e 0 0 65 * AM F$* 5 ) * p GFC 
MP TURN 
PNJ-1 
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Subroutines ALOCAT, BLOCAT, and DLOCAT 

This series of subroutines are used to determine the location 
of the particle within a grid pattern so that the gas velocities 
and flow properties can be determined. Although each subroutine 
does approximately the same thing, it was found that each flow 
geometry required slightly different forms of the subroutine. 

Most of the geometries used in this study are such that the gas 
flow is described at nodes along the quasi— orthogonals of the 
flow. Generally, the indexes that locate the nodes are in in- 
creasing order from inlet to exit. All of these subroutines check 
each orthogonal to find the first orthogonal beyond the particle 
location. The subroutine then sweeps from hub to shroud, or from 
blade to blade along the stream surface until it determines the 
index of the streamline just beyond the particle location, then 
specifies the four grid points surrounding the particle. The sub- 
routines check if the particle is out of bounds. If the particle 
is in bounds, then NOWT = 0, otherwise the code work NOWT is set 
equal to a number that depends on the boundary. These subroutines 
are included with the individual program listings. 

Subroutine POLATE 

This subroutine interpolates linearly the properties of the 
gas flow at the location of the particle within a grid, using the 
known flow properties at the four grid points that surround the 
particle. Figure 15 illustrates the grid points surrounding the 
particles that determined by the locating subroutines. The dis- 
tances from the orthogonals to the particle location, and 
D , are determined first. Next the program calculates the distances 
from AA and AB to the particle location. All of these distances 
are used to interpolate the value of any flov; property A. The 
same method is used to determine the r, z coordinates of the 
properties. The subroutine returns this property to the main pro- 
gram as AP. 
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There are minor differences in the subroutines that are 
listed with each of the programs. These minor differences occur 
because of the significant differences in the geometries between 
different flow fields. For example, the STATOR program uses an 
r-e grid while the ROTOR program uses an r-z grid. However, the 
subroutines all follow a procedure similar to the one outlined here. 

Function RUNGE 

This function uses a 4th order Runge-Kutta technique to 
integrate a system of simultaneous first order ordinary different- 
ial equations over one time increment. A more complete description 
of the subroutine and the input and output quantities can be found 
in Reference 5. A listing of the subroutine is included in that 
reference. 
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PROGRAM DESCRIPTIONS 


The following sections will describe the programs, their 
input and output and other information that will aid in under- 
standing their use. A complete listing of the program is included 
with a sample set of data to demonstrate the program output. 

PARDIM - Particles in a Vortex 

This program integrates the equations of motion to determine 
the trajectory of the particle in inward flowing free vortices, 
or whirling flows that have no radial components but do have axial 
components. The force of gravity acting on the particle can be 
included in cases where gravity must be considered. The solution 
is essentially a three dimensional one, but instead of allowing 
particles to bounce, the integration stops when the particle passes 
boundaries of the fluid flow. The cylindrical coordinates, r, 6 
and z, are used as indicated in Figure 16. 

Method 

Figure 17 is a flow diagram of the program PARDIM. The sub- 
routine, VORTEX is used to provide the three components of the gas 
velocity and the necessary gas properties within the boundaries of 
the flow field. The function RUNGE is used to integrate the equations 
of motion. The general iteration technique that is used to calculate 
the average values of the gas properties at the particle .Location, 
and the method used to integrate the equations of motion of the 
particle have been explained before. 

The first call of subroutine VORTEX allows the general charac- 
teristics of the gas flow to be introduced into the subroutine. 
Subsequent calls return the velocity components, static gas temper- 
ature and density that are the solution of the free vortex flow at 
the radial location of the particle. The equations that govern the 
gas flow field are; conservation of momentum, X = rV^ = constant, 
the conservation of mass, = pV r r “ cons t :ant ' an< ^ isentropic 

flow relations. 
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The solution for the mass flow in the subroutine VORTEX uses 
an iteration technique that will sometimes fail to converge when 
the velocities become large. If this occurs/ the subroutine prints 
"VORTEX FAILED TO CONVERGE AT LOCATION R = , " and then sets a 

parameter that causes the main program to proceed to the next data 
set. A second message can sometimes be printed by the same sub- 
routine if the flow of gas in a compressible free vortex has a 
supersonic solution. The message "CHOKED FLOW" will be printed in 
such case. 


Input 

There are two sets of input. The first set specifies the 
nature of the gas flow and consists of 4 cards at the front of the 
input data. This program is written so than any consistent system 
of units may be used. 

The first four data cards take the following form. 


DANGLE, TMAX, RMIN, RMAX, ANGMAX, ZMAX 
VISREF, TREF, TSUT, GAM, RGAS , DGFC 
RIN, VRIN, VUIN, VZIN , TT, RHOT 
ALPHA, BETA, GRAVITY 


(6F10.4) 

(E20.5, 5F10.4) 
(5F10.4, E10.4) 
(3F10.4) 


These variables are defined later. 

The second set of data cards specifies the particle size 
and density and the initial position and velocity of the particle. 
Each particle can be described by four input data cards which take 
the following form. 


TITLE 

(YR (I ) , 1 = 1,6) 
RHOP, DIAP 
NSTEP, H 


(18A4) 

(6F10.6) 
(F10.6, E10.4) 
(110, E10.4) 
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For studies that are done with multiple particles, additional 
second sets of input' data cards may be stacked together. When the 
program completes one set it goes to the next set automatically. 

An explanation of the input variables of both sets follows. 

DANGLE - Data is printed every DANGLE degrees. 

TMAX - The program truncates the solution when time exceeds TMAX 
seconds and goes to the next particle. 

RMIN - The program stops and goes to the next data set when the 
particle radial location is smaller than RMIN. (Length units). 
RMAX - The program stops and goes to the next data set when the 
particle radial location is larger than RMAX. (Length units). 
ANGMAX - The program stops and goes to the next data set when 
the particle angular position is greater than ANGMAX in degrees. 
ZMAX - The program stops and goes to the next data set when the 
particle axial position is greater than ZMAX. (Length units). 
VISREF - Reference viscosity corresponding to TREF. Used 
Sutherland's Law. (Mass/Length x Time). 

TREF - Reference temperature corresponding to VISREF. Used in 

Sutherland’s Law. (Absolute degrees). q 0 

TSUT - Constant used in Sutherland's Law. (198.6 R or 110 

GAM - Ratio of specific heats. 

RGAS - Gas constant. (Length /Time Deg. Abs.). 

DGFC - Drag Factor - The spherical drag coefficient based on 
Reynolds Number is multiplied by DGFC. Except in very special 

cases, this should be 1.0. 

RIN - Radius at inlet of the gas stream. (Length) . 

VRIN, VUIN, VZIN - Radial, tangential, and axial components of. 
the gas velocity at RIN. In an inward flowing vortex, the radial 
component should be negative. (Length/Time). 

TT - Stagnation inlet temperature. (Degrees Abs.). 

RHOT - Stagnation inlet density. (Mass/Length ). 

ALPHA - Angle of Z-axis with respect to the horizontal. 

(Degrees). See Figure 18. 

BETA - Angle of the turbine verticle axis with respect to the 
gravitational vertical. (Degrees). See Figure 18. 
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GRAVTY - Acceleration of Gravity. (Length/Time 2 ). 

TITLE - The first card is reproduced at the top of the first 
page of output for each particle. Any statement in columns 2 
to 72 will be reproduced. 

YR ( 1 ) - Initial particle radial position. (Length). 

YR(2) - Initial particle radial velocity. (Length/Time). For 

inward moving particle, the radial component is negative. 

YR(3) - Initial particle angular position, 0. (Degrees). 

YR (4 ) - Initial particle angular velocity, 6. (Radians/Sec). 

YR{5) - Initial particle axial position. (Length). 

YR (6 ) - Initial particle axial velocity. (Length/Time). 

3 

RHOP - Particle density. (Mass/Length ) . 

DIA - Particle diameter. (Length) . 

NSTEP - An integer that is not used in this program. 

H - Integration time increment. (Time) . 

Output 

The first part of the output is an echo check of the first 
set of data cards which are used to describe the gas flow field. 
Such data checks are useful in correcting key punch mistakes on 
the input cards. After initializing these variables, the program 
calculates and prints the critical gas velocity. This critical 
velocity is determined based on the gas stagnation temperature. 

The following print out starts on the next page, and the printed 
output data for each particle starts at a new page. The first 
part of the printed output is an echo check of the input data as 
punched on the second set of data cards. After initializing the 
variables, the program calculates and prints several similarity 
parameters that are useful in relating particles that have similar 
trajectories. Next, the particle position and velocities at 
every DANGLE degrees are printed. The parameters appearing in 
the output, that were not defined before in the input data, are 
listed below. 


32 


DELTA - Characteristic length as given in Equation 7. (Length). 
TAU - Time constant as given in Equation 8. (Time). 

RECR - Reynolds number as given in Equation 9. 

T - Time. (Time). 

RENOLDS - Reynolds number for the particle at this point. 

R/RIN - Normalized radial position of the particle. 

STREAMLINE - Normalized radial coordinate of an incompressible 
flow streamline that would exist in a free vortex starting at 
RIN with the same initial velocity components given as input. 

Such a streamline will follow the equation R/RIN = e ( 0tana i) 

(Q1 

where = arctan (VRIN/VUIN) ' . The subroutine VORTEX provides 

a compressible solution, thus STREAMLINE is only provided for 
comparison purposes. 

When the solution is complete, the program writes all the 
trajectory information at the last point. Also printed are, M, 
the iteration counter and L, the time increment counter. If 
the air velocities fail to converge in 100 iterations, the pro- 
gram stops, prints the trajectory data from the last iteration 
and M = 101. 


n ■*> 


AM TV r. LF V c t. 21 


MA IN 


HA TP = 751H2 


16/AA/2 


C n I M r SM UNAI SOLUTION AMT PRINT PUT FOR PAR T I CL F TRA JFC TOR I FS. 

C any CUNSISTFMT SYSTFM OF UNITS. 

c 

n I Mr NR 1CN VP(4),VU(A),YR(6>,FR(6) ,YPS(6) ,VZ(M , T FMP ( 2 ) , PHO< 2 ) 

fMMFNSirN ST AT F( 18) 

INTF^FP FUNCE 

U=AD|S, 1000) DANGLE, TMAX,RMIN,RMAX,ANGMAX,ZMAX 
WPT TF( 6 ,2000) DA NOL E ,TMAX,PMTN*PMAX» ANCMAX » Z P AX 
PFAO( 5, 11 CO) VISPFF,TPFF,TSUT,GAK,pr,AS,PGFC 
HR I T F ( 6 ,2 100 ) VISRFF,TPFF,TSUT,r,AM,RGAS,nr,FC 
RFAr>(>i,12 00) R IN, VP IN,VUIN,VZIN,TT,OHOT 
WP ITF(6,2 200 )R IN, VP. I N, VU IN , VZ IN, TT,RH()T 
READ{5, 1000) ALPHA, PFTA,CPAVTY 
HP T TF{6,?510) ALPHA,HFTA,GRAVTY 
IF< ARSt VUIM.LT. l.OF-10) VUIN=1.0E-10 
T AL PH = VP I N/VUTN 
SALPH=S IM AL PH A/ 5 7. 295 78 ) 

HFTA=PFTA/57. 29578 
CV0R*1 ,0/tC.AM-i.O) 

C.PUP = GAN'/ (GAM-1.0) 

ADC=t GAM-1 .0 ) / { G A M ♦ 1 .0 ) 

VC.P=SOR T( 2. 0*RGAS*GAM*TT/(GAM«-1.0 ) ) 

WR I T r ( 6 , 2 A 0 0 )VCR 
r>n 205 NUMB= 1 , 100 
P F AP( 5 , 19C0 ) ( STATE ( I) ,1=1,18) 

WKITF(6 ,2700)(STATF( I) ,1 = 1,16) 

Pr-AD(5, 1300) (YP( I ) ,1=1,6) 

HP I T r ( 6 , 2300 ) (YR( I), 1=1, 6) 

P F AO ( 5 , 15 00 ) RHQP, DTA 
HR T TF( 6,2110) RHCJP , DT A 
HFAn(5,1510) N STEP t h 
WPT TF(6,2120)NSTFP,H 

CONVFRT TO NON-DIMFNS IONAL QUANTITIES AND 1NITIALIZF 


PH L)CR = P HCT * ( 2*0/ (GAM + I.O) )**CVUP 
DFLTA=PHCP*DIA/PHnCR/0.3 
TrP=TT*2.0/ ( GAM + 1.0) 

VI SCR=VISPFF«( (TCR/TREF)**t. 5) *( TREF+TSUT ) /(TCW+TSUT) 

T AU=RHOP*D I A** 2/ lb. O/VI SCR 

RFrp=DT a*PHOC d *VCP /VTSCR/2.0 

WR I T F ( 6 ,2900 ) HFLTA,TAU,RECR 

W«ITF(6,2A10) 

T cmP( ? ) =TT 

RHO(2) = R HUT 

Y»(3)=YR(3)/57. 29577 

VR ( 1 ) =V«1N 

VU( 1 )=VUIN 

VZ ( 1 ) = VZ I N 

N = 6 

L=- 1 

M= 1 

T = 0 • 0 
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AN fV r Lt-’V'-L 21 MATN OftTF = 75182 16/44/26 

ANGLE=YP( 3) 
ts = t 

n.i io i = 1 , 4 
v«(i>*»Rm 

VZ( I ) =V7 ( 1 I 
10 VU< I I = VU( 1) 

00 20 1=1 ,N 
20 YPS( 1 ) =YP {I ) 

CALL VO p TFX(LfVRINfVl)INtV7IN*RIN»TFMftPHO»GAy f Rr»AS) 

L = L«-1 

VI STAw=VT5°rF*( ( TF MP ( 1 ) / TPEF I ** 1 . 5 I * ( TPF F + 1 SL T ) / ( TFMP ( II + T SUT ) 

C 

C INTEGRATE USING RUNGF-KUTTA MFTH 00 

f. 

25 VO I FF-SQR T ( ( V« ( 2 » - YR C 2 I) **2+ I VU ( 2 I -YR < l)*VR(4))**2 
l ♦(VZ(2)-YP(6))**2> 

C p NDLO = RHC( 1 ) *VDI FF*0 1 A/ V I ST AR ^ 

TALL RNIJMPR (RTNULO, 1 .Ot CO » 

3CCl\ = RMC( l ) *CO/R HOP/OI A/1.166667 
30 IF(pUNOf( N.YKfFR ,T t H».NF.l ) GO TO 40 
F R ( l ) - Y« (2 ) 

FR(7I = YRm*YP(4)**2 + PC 0 N*VDTFF*<VR( 2 )-Y»M 2 n 

l -GPAVTY*COS( YR < 3I+-PETA) 

F R { 3 I - YR<4) 

F»<4) = -2.0*YP(2l*YP(4)/YRm + BCON*VD!FF 

1 *(VU( 2)-YR( t)*YR(4l) /YP (1) 

2 +CRAVTY*SrN(YR(3)fPETA) 

FP ( 5 ) - YP { 6 ) 

F R l 6 ) = nC0Ai*vniFF«(VZ(2)-YP (6)1 

l -Go AVTY*SALPH 
GO TO 30 

40 CALL VCRTFXlLtVR 141 ,VU(4I fVZ(4 >,YR ( 1 I, TFMPfPHOfGAMfPGAS) 

!F(L.EQ. 10000) GO TO 205 
C 

C TFST AIR VFLOCITY VALIJFS USFO, IF INCORRFC T » PFSFT INTEGRATION 
C VALUES ANO GO TO 25, IF CORRECT, GO TO 50 

C 

I F ( ( AR S ( V R ( 4 ) — VR ( 3 ) ) . IT. 1 . OF-4 ) . AND. { AB$( VU{ 4 )— VUI 3 I ) .1 T.1.0F-4) 

1 .ANO. ( ARS< VZ(4)-VZ<3 I ) .LT. l.OF-4 I > GO TO 50 
VR(2)MVR<4) fVR( 1) 1/2.0 
VU(2)=(VU(4)*VU( l) 1/2*0 
VZ<2)=( VZ(4H-VZ( 1) 1/2.0 
VR (3)=VP{4) 

VU(3)=VU<4) 

V7( 3)=VZ< A) 

T = TS 

00 45 I=l,N 
45 Y R ( I )=YPSI I I 

IF(M.GT.IOQ) GU to 200 

l 

GO TO 25 

r 

C COMP I FT F IMFGRATION STFP, IF PFO*n f WRITF OUTPUT. GC TO 30 
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IV G LEV r l 21 


MA IN 


HATF - 75182 


16/^4/26 


r 


6 0 M*| 

L = L + l 
T S = T 

me TA=YR( 3) *57.29578 
"*•1 60 1=1 ,F 
63 Y9S(T) *Y»f T I 

V- U) = Wb*VR<4)-0.5*VH (1) 

V^ ( 31=2 ,0*VH ( 4 l-VP ( 1) 

V* { 1) =VP( 4 ) 

VK ( 4 ) s VK ( 3) 

V'M2» = l.‘>*VU(4)-0.5*VU(l ) 

VK 3 1 =2 • 0*VU( 4 )-VU( 1) 

V'M 1 )=VU(4) 

VU ( *♦ 1 = VU( 3 ) 

VZ{2)=l.5*VZ(4)-G.5*VZ( t> 

VZ(3l=2.0*V2(4)-VZ< 1» 

vzm=vz(4i 

VZ ( 4 1 =VZ ( 3 1 „ ,, 

VISTA f ’=VISFTF ! M < TEMPI t ) / TPFF 1**1 .5)*(TKFF + TSII7)/(TEMP( 1) + TSUT I 
HO I F ( ( T.GT.TM AX) .OP. t YP ( 11 .LT. &MIN ) .OP • (YR( 1 ) „GT .PM AX ) 

1 .09. (THETA. GT.ANG^AX). OR. (YR(5) .GT.ZMAXI ) GO TO 200 

IF( (THPTA-ANGLF) .LF.O.O) OH TO 30 
« ro-YP (4) 

SUNF = FXP(YP (3 )*TAL PH) 

909 t M = YP ( 1) / 5< f W 

49 I TE ( 6 , 2 600 ) T » YR ( i 1 , YR ( 2 1 , THFT A , RT D , YR ( 5 ) , Y R ( 6 ) , R ENCtP , «0R I N , 

L SLIME 

AN f.L F = A KGL F + D AMOL E 


GO TO 23 
2 )0 CONTINUE 
9 mrY 0 (41 

SLIN p =FXP(YR (3 l*TALPH) 

«oqtN=YR( D/RTN 

WPITF(6,2600) T,YR( 1 ) ♦ YR ( 2 1 , THFT A , R TO , YR ( 5 1 , Y R ( 6 ) , R FNUl'' , «0R T N, 
l SLTNF 

49 f T c ( 6 » 2 800 ) M,L 
303 CUNT l MU F 
1000 F - j PMAT ( 7 F 1 0 • 4 1 
1100 FORMAT! E20.5t5 p 10,4) 

1200 FnR v AT ( 5F10.4, F10.4 ) 

1330 F,iRM AT ( 6F10.6) 

1<VQ) Ff 9,V AT ( 1 8 A4 ) 

1300 EnovAT ( F lO,6fE 10.4 1 
1610 E 0 9 M A T ( I 10* E 10. 3) 

2 000 FH PM AT { iHOf 7 X , 7H0- AM GLE * 1 OX, 5HT-M A X , 10X, 5HR-M IN» l OX ♦ i>H«-MAX,6X, 
l OHMAX-ANGLF 1 10X »3HZ- MAX* /*( 6F13. 4 1 1 
2100 E09MAT{1H0.5X,14HRFF. VI SCHS l TY , 6X , VHP FF . T F M F » 2 X ♦ l 3 HSIJ THE RL AN OS T 
l , iGX.bHF.AM'M ,6X,0HGAS C.nMST*4X, IIHPFAG FACT-'P,/* (F 20.3, 3F13.*»M 

2110 C QPM AT ( IMO , l OX ,4HRHnP, 12X,3HriA*/»(F15.6fF15.41) 

2120 FORMAT ( IMO, 9X , 5HNS T p P , l 4X , IHH ,/,( I L 3, F 1 3. 3 1 ) 

22)0 FORMAT ( IH0,11X,3HPIN,11X,4HVPIM, 1 IX, 4HVU IN, 11X,4HVZTN*13X,2HTT, 
l llX,4HPHHT,/,( 3ri5.4,Fl5.4) ) 
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, iv r, i p v r L 21 


MA IN 


r )A rr 


7 b l >) 2 


16/44/2 


2 330 *= n ^ M A T c IHO, VX.5MYM II ♦ l J X ,5 M YP I 2 ) ,10X, 5HY P { 3) , lOX.bMYR (4), 10X, 

1 bHYR < 5) , 1UX, *iMYP ( 6 | v /• ( 6^1 6.6 I } 

2A)0 rijRNAT ( IHOtlOHf.P n TCAL VPLOCITY S.F10.4) 

24 10 c ) RM AT ( LMOfOXflHT , 7X,5HYR ( 1 ) , /X, bHYP (?),7X»bHYR(3),7X,5HY t '(4J, 

l 7X,bHYP<b) v 7Xv5HYR(b) v 5Xf 7HftFMGLDSf7Xv 5HP /P ! N ♦ 2X ♦ 1 U"STP p A*L ! NE ) 
25)0 FUPMATfiH ,F10.2 , 3 F l ?. 5 , F 1 2 . 2 ,2 F 1 2 . 5 ♦ F 1 2 . 3 . 2F 12.5) 

2510 c ")PM AT ( l M J»t OX * 5WAL PHA , 1 1 X , 4Ht) e T A , 2X , 1 3HAC C • C p G* 4 V . , / , < 3 F lb . 4 ) ) 
2b00 FORMAT ( iHOfF?. 3* r 12.4, 2F 13.4, 3 P 12.4, p 13.4, F 10.4 , f 12.4) 

? 7U0 FORMAT ( lHlf/tlftA4) 

2UU0 F • t p v A T ( l H ,5X,3HM = ,!5,bX,3Ht =,!10) 

29)0 F ‘.I J MAT ( 32H0S TMILAPTTY PAPAMF7F«S. OELTft a , F10.4, 5X , bHTAU =,F12.4, 
l 5 X , 6HRF C P =, P 12.4) 

STOP 

<*NO 


The function routine RUNGE has been removed from the 
published form of this report to protect the copyright 
of the authors of Reference 5. 


SURF O'JT INF PNUMRP { » fNOLh , HGFC , CO ) 

TF( A«S(PfK’Ln).LT. l.OF-12 ) p FNOL D = 1 . OF- 1 2 
TFIRFN0L0.LT.U0) GO TD 26 

IF ( ( pCMrLO.GE. J .0 ) .ANO. (PFNOLO.LT. L.OF3) ) GL TO 27 
Cn-nG p r*0 .4 
9 F TURN 

2 6 Cr**OGFC*( 4.5«-24.0/HFN0LO ) 
p c TURN 

27 AR p =ALOG( PFNOLO) 

CO=( 2H. b-24.0*APF+9.0682*APF** 2 -i .77 13*AP *3 *0 . 1 7 l C *AR F ** 4 
l -0. )06F*APF**S)*O0Fr. 

RETURN 

c i\0 
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v f V r I e V r L 


VORTFX 


PAT F 


75182 


1(5/44/ 


10 


15 

12 >0 


20 


10 


AO 

1000 
1 1 00 


21 


SlMPMIT INF V'JPTPX(L*VR *VU» VZ * POS » T , RHP ,GAM f P GAS > 

»>»-' c NSir.\ TI2)*»WOC2) 

Ms.) 

IMl.tje.O) r,0 TP 10 
\l-0 

CVH«*I.O/IGAM-l.O» 

ABCs ( GAP-1 *0)/( GAMM.O > 

Vf, R = SOR T( 2 .0*PGAS*GAP*T 1 2 )/f OA*H 1 .0) ) 

TnrT=l.O-ABC*< ( VU**2«-VR**2+VZ**2) /( VC.R**2) > 

T ( l ) =T(2)*T0TT 
P HO m *RH r, c 2 ) * C TO T T * *f. VO * ) 

cu«vu*pns 

c w*-vp*Pi.s*»Hnm/RHrC2» 

»(= TU<»N 

TFIM.GT .100) GO TO 20 

yopsVP 

VtJP = VU 

T 1 1 T T = l . 0— A P, T * ( ( VU**2«-VR**2*VZ**2> /I VC«**2) ) 

TF( TPTT.LF.O.O) GO TP 15 
vo=c'J/pns 

VRs-C»* H 1 .O/TOTT ) **fVOK >/POS 
MsMfl 

I F ( ( AftS ( VP P-VP ) .GT. l.OF-6) .ANO. ( AbSC VUP-VU ) • GT . I .0£-6 ) ) GO TO 10 


T(l) = M2) *TPTT 

omh( 1 ) s»^P ( 2 )* ( TPTT**F VOP ) 

AM/Vf.H=SfcPT( < VIJ**2+VR**2*-VZ**2) / I GAM*KGAS*T( l ) ) ) 

!<=( AMACF.r.T.l.O) GO TO 10 
G ’ TH 40 

I T 5 ( 6 1 1 2 0 0 ) P^S 

CtfPMftT ( IH0.4LHV0RTFX FATIFD TO fONVFRr.r AT LCX AT ION R *.F10.4) 

L* 100)0 

w.-ru^N 

/JE’IT :: (6.100n) M.VK,VFP,VU»V'JP,T"TT 

GO Til 4 0 

IP(N.PQ.O) W«!TC(6. 1 100) 

Ns 1 

r l iTINUF 

FCPMATUlOf 5F15.8) 

Fi ! »MAT ( IHO » 1 IHC MOKFD FLOW) 

K c TtJPN 
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Example 


The example presented here uses the ft., Ibm., second 
system of units. The vortex in this case has an inlet radius 
of 0.2742 ft. and an exit of 0.2467 ft. The axial span of the 
vortex lies between z = 0 and z = 0.0264 ft. A cold gas equi- 
valent flow is considered and therefore, the inlet stagnation 
conditions are standard sea level conditions. Gravity is 
neglected in this example. 

The specific gravity of the particle studied is about 3, 
its diameter is 236 microns, its initial velocity is equal to 
one half of the gas velocity and its initial position is 
Slightly below the inlet radius. After 27.3°, the particle 
leaves the flow field at the inlet radius. 

The following pages contain a computer code sheet with 
the data arranged in the proper columns and the output for this 
example . 
























'-6NG1 F 
1 ,00.10 

T-«AX 

(1.GC32 

P-MN 
C. 2 4 67 

t. VISCOSITY 
0.1060GF-D4 

PFF. 7FMP 
4S2.0000 

SDTFEPLANCS T 
1 18.2CCD 

PIN 

0.2741 

VP IN 
-t P4.0000 

VL IN 
78C.OCOO 

A] PFfl 

O.n 

P FT A ACC 

0.0 

. OF GRAV. 
C.O 


R-WAX 

0.2742 

MAX-ANGLE 

360.0000 

2-MAX 

0.C264 

GAMMA 

1.4000 

GAS CCMST 
1715.4800 

DRAG FACTOR 
1.0000 

V2IN 

0.0 

TT 

518.7000 0. 

RFC! 

7640E-01 


CR IT tr VPir.f.TTY 


101 P-. RF26 



fwopif ra*E Fr« Mia rfpcrt v-past/v-cas * 501 


i*» 

K> 


VRItl 


VR (21 

YR(2> 

0.2741 OP 

-9?. 

OOPCCO ■ 

0.0 - - 

RHCP 


CIA 


1 E7. 154957 

P.7761F-03 


N5TFP 


H 


10 

0.jnOF-C4 


StMliSMTV paRawFT EPS. 

np, Tt = 

5.5551 1 

T 

Y0C11 

YR (71 

YP (31 

C.lflF-04 

0. ’7321 

-86.472P2 

C. 81814 

®.2(iF-:>4 

0.27237 

-PP. 85002 

1.64193 

<■.30 F-n* 

O.P’159 

-T5.?54’5 

2.41105 

P.4PF-04 

0.3708 7 

-f =.5(f6* 

3.3C572 

f.e -c. 't. 

•.27)2-1 

-62.87595 

4.1 <43 1 

C.7CF-04 

C. 76504 

-52.24243 

5. f 252 5 

0.R0F-04 

0.26854 

— 46 . ’ PP34 

(.66661 

<-.5rF-<'4 

0.26811 

-4C.5CC73 

7.54136 

p.’rF-03 

0.7R773 

-’4.5P32C 

f. ’5515 

*. 1 IF-P3 

*.?674> 

-2 P .6 3575 

5.25573 

. r. 12P-33 

C. 767 16 

-22.67404 

1C. 12260 

0.1 4F-03 

0.26683 

-10.65171 

11.P5346 

".15F- r 3 

’■.26675 

-4.66316 

12.77148 

C.16F-03 

0.76673 

1.32)36 

12.56551 

P.13 f--'3 

'.766 7 H 

7.34874 

14.45975 

f.l P*-(” 

f . 76 F 8 8 

1?.’61C4 

15.32743 

0.15F-03 

0. 76704 

15.37157 

16. 1=615 

r.y f- 3 

’.767 77 

75.36583 

17.C6392 

f . 2 ?F— 0 3 

0.76740 

37. 3|*3i 

16. 7557C 

C. 2 ’F-03 

0.76873 

4’. 26256 

15.65894 

C.74F-03 

P. 36876 

45.1 1560 

20.51593 

P.?5F-n3 

0.76928 

« e . 0666.2 

21.27826 

<‘.?FF-'-3 

.765R6 

60.9155? 

22.23366 

0.27T-03 

0.77050 

66.773P5 

23.06565 

(i.?°F-f»3 

0.27145 

76.24197 

24.77841 

c.3or~o’ 

0.77774 

P 2. 5 754 5 

25.61844 

f. UR-03 

0.77363 

85.55845 

26.45383 


YR(4) 

1422.039844 


C.'.t.', 

M a 


0 . 27*6 
1 I 


95 . 130 c 

3? 


m = 0.6555E 

YR14I 
1432-94 
1442.95 

1451.67 
146U.25 
1466.29 
1482.65 
1488.54 
1494.62 

1499.67 
1 5'J4. 37 
1507.83 
1513.35 

1515.10 
1516.17 
1516.57 
1516.23 
1515.32 

1513.60 
1508.4J 
1534.70 
1500.51 

1495.61 

1490.10 
1483.93 
1470. 00 
1462.16 
1453.82 


27.2843 1444.9573 


VP <5 I 
C.OCiOOi) 


YR161 

0.0 


O0 RECR » 0.2004 E 04 


YR( El 

YR( 61 

PENOLOS 

R/RI6 

O.OOICO 

0.0 

C.179E 04 

C. 55674 

C.’-OIOC 

c.o 

C.1>BJE 04 

C. 99369 

C. 30 ICC 

0.0 

C.161E C4 

C.45CE4 

0.00100 

c.o 

0.181E 04 

0.58820 

C.001JC 

c.o 

C. 182c 04 

C. 98577 

0. etc 100 

0.0 

C . 1 84 E 04 

C. 98152 

0.00 ICC 

c.o 

0.185E 04 

0.97972 

O.OOICO 

c.o 

C.186E 04 

C. 57815 

0.00 ICO 

0.0 

0.1876 34 

C. 97678 

C.CCKC 

c.o 

C.198E 04 

C. 57562 

0.30100 

0.0 

C. 1895 04 

C. 57469 

C.'JU loo 

c.o 

C.191E 04 

0.97247 

0.0013C 

0.0 

C. 1926 04 

C* 57315 

O.OOICO 

0.0 

0.194c 04 

0.97313 

C . 00 ICC 

c.o 

C.1556 04 

C. 9732 E 

O.OOICO 

c.o 

C.156F 04 

C.573££ 

u. 00 ICC 

0.0 

C.157E 04 

C. 47426 

0 . 0010 c 

c.o 

0.1586 04 

C.975C8 

0.00100 

c.o 

0.20JE 04 

C. 57736 

C.00 10 c 

c.o 

C.2J16 04 

C. 97823 

0.00100 

0.0 

C.2026 04 

C.58C52 

O.OOICO 

0.0 

C • 203 E 04 

0.90242 

0.00 icc 

c.c 

C.2G46 04 

C. 5645<. 

0.0010c 

c.o 

0.2056 04 

C. 98667 

O.OulOC 

c.c 

C.207E 04 

C. 99216 

0.00100 

c.o 

0.208E 04 

C. 45511 

O.OOICO 

0.3 

C.2096 04 

0.99S28 

0 . 001 c 

0.0 

2056. 6495 

1.0016 


STREAMLINE 
0.59664 
0.99326 
0.98536 
0.98648 
0.98308 
0.97626 
0.97285 
0.96543 
0.56601 
0.46259 
J. 55518 
. 0.95237 
0.94697 
0.94558 
0.94221 
0.53884 
0.53549 
0.93216 
0.92553 
0.92225 
0.51899 
0.51574 
0.91252 
0.90933 
J. 50301 
O. 89990 
0.09661 

0.S93T 


SCRL2D - Two-dimensional Scroll 


This program integrates the equations of motion to determine 
the trajectory of a particle in a scroll* The force of gravity 
acting on the particle can be included in the cases where 
this is necessary. The solution is two dimensional/ but the 
output has been written to include a possible extension in the 
future to a three-dimensional solution. The particle is allowed 
to bounce off the scroll wall, and the solution stops when the 
particle enters the nozzle region of the flow. The cylindrical 
coordinate system r, e and z is used as indicated in Figure 16. 

Method , 

Figure 19 is a flow diagram of this program. Unlike the 
previous cases, there is no need to iterate for the average 
gas flow properties at the location of the particle. The gas 
flow solution is assumed to be uniform throughout the scroll 
and, therefore, the properties of the gas do not change between 
inlet and exit. The main program uses three subroutines, RUNGE, 
RNUMBR, and BOUNCE to trace the particle trajectory in the same 
manner as discussed previously. The subroutine BOUNCE that is 
used with this program is the unmodified routine that has been 
improved considerably. The improved subroutine is the one 
that has been described previously. 

Input 

There are two sets of input. The first set specifies the 
nature of the gas flow and consists of two cards at the front 
of the data. This program is written so that any consistent 
system of units may be used. An example of this input data is 
included with the example case presented after the program 
listing. 

The first two data cards take the following form: 

GAM, RGAS, WTFL, RHOIP, TIP (5F10.6) 

D ( 1) , A(l) , REXIT, SRDEND . (4F10.6) 

These variables will be defined later. 
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The second set of data cards specify the type of particle 
and its initial position and velocity. Each particle can be 
described by six input data cards which take the following 
form: 


TITLE 

VISREF, TREF, TSUT, DGFC 
RHOP, DIAP , H, TMAX, ETA (1) / ETA (2) 

YR (I) , I » 1# 6 
ALPHA, BETA, GRAVTY 
NSTEP 

These variables are defined below. For studies that are done 
with multiple particles, additional sets of input data cards 
as indicated for the second data card set may be stacked to- 
gether. When the program completes the trajectory for one 
particle, it goes to the next set automatically. 


(18A4) 

(E20.5, 3F10.3) 

(F10.2, 3E10.4, 2F10.3) 
(6F10.3) 

{3F10.4) 

(15) 


Variables 

GAM - Ratio of specific heats 

RGAS - Gas constant (Length 2 /Time Degree Abs.) 

WTFL - Mass flow rate of gas (Mass/Time) 

RHOIP - Gas inlet stagnation density CMass/Length ) 

TIP - Gas inlet stagnation temperature (Degree Abs.) 

D(l) - Dimension of the first station as indicated in 

Figure 20. (Length) 

2 

A(l) - Area of the first station, (Length ) 

REXIT - Radial distance that determines exit location. 
See Figure 20. (Length) 


SRDEND - Angular location of the last portion of the 
regular scroll contour before suppression of 
the scroll begins. See Figure 20. (Degrees) 
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TITLE 


VISREF - 

TREF 

TSUT 

DGFC 


RHOP 

DIAP 

H 


TMAX 

ETA(l) - 
ETA (2) - 
YR(1) - 

YR(2) - 


YR(3) - 

YR( 4) - 

YR(5) - 

YR(6) - 


The first card is reproduced at the top of the first 
page of output for each particle. Any statement in 
columns 2 to 72 will be reproduced. 

Reference viscosity corresponding to TREF. Used in 
Sutherland's Law. (Mass/Length x Time) 

Reference temperature corresponding to VISREF. Used 
in Sutherland's Law. (Degrees Abs.) 

Constant used in Sutherland's Law. (198. 6°R or 110°K) 

Drag Factor - The spherical drag coefficient based 
on Reynolds Number is multiplied by DGFC. Except 
in very special cases, this should be 1.0. 

Particle density. (Mass/Length^) 

Particle diameter. (Length) 

Integration time increment. (Time) . If extremely long 
computer run times are experienced, this can be made 
larger. If the program fails to converge, this can 
be made smaller. 

The program stops the solution if time exceeds TMAX. 
(Time) 

Normal restitution coefficient. 

Tangential restitution coefficient. 

Particle's initial radial position. (Length) 

Particle's initial radial velocity. Positive in 
the outward direction, negative in the inward 
direction, (Length/Time) 

Particle's initial angular position. (Degrees) 
Particle's initial angular velocity. (Time) 

Particle's initial axial position. (Length) 

Particle's initial axial velocity. (Length/Time) 
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Alpha - Angle of z-axis with respect to the horizonal. 
See Figure 18. (Degrees) 

Beta - Angle of the turbine vertical axis with respect 
to the gravitational vertical. See Figure 18. 
(Degrees) 

2 

GRAVTY - Acceleration of gravity. (Length/Tixne ) 

NSTEP - Integer that determines the amount of printed 
output. Output data is printed every NSTEP 

time increments. 

After initializing the input variables, the program calcu 
lates the velocity components and properties of the gas. The 
gas flow in the scroll is isotropic, with both the mass flow 
rate and the scroll cross sectional area decreasing uniformly 
by the same ratio. The velocity is based on the inlet area, 
but is deflected inward by the angle CHI, where 

, D ( 1) x 

CHI = arc tan REX IT 


Output 

The first part of the output is an echo check of the first 
set of data cards that describe the gas flow. Such data checks 
are useful in correcting key punch mistakes on the input cards. 
The output variables that are not defined in the input 


are : 

V 

VR 

VU 

CHI 

VCR 

RHO 

TEMP 


- Gas velocity (Length/Time) 

- Radial Component of gas velocity (Length/Time) 

- Tangential component of gas velocity (Length/Time) 

- Angle between V and VU. (Degrees) 

- Critical Velocity. (Length/Time) 

3 

- Gas density (Mass/Length ) 

- Gas temperature (Degrees Abs.) 


46 


ORTHOGONAL - Number associated with various radial stations 
along the scroll. 

THETA (1,1) - Angular position of inner contour. (Degrees) 
THETA (I, 2) - Angular position of outer contour. (Degrees) 
r(X ( 1) - Radial position of inner contour. (Length) 

r(I, 2) - Radial position of outer contour. (Length) . 

The program next skips to a new page and the first part of 
the printed output is an echo check of the input data as punched 
on the data cards. After initializing the variables, the program 
calculates and prints several similarity parameters that are 
useful in relating this particle to other particles that will have 
similar trajectories. Next the program writes the trajectory 
information every NSTEP time increments. 

The additional terms of the output that are not defined 
as part of the input are listed below. 

DELTA - The characteristic length as given in Equation (7) . 

(Length) 

TAU - The time constant as given in Equation (8) . (Time) 
RECR - The Reynolds number as given in Equation (9) . 

L - A time increment counter. 

T - Time. (Time) 

RENOLD - The particle Reynolds number at this point. 
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LEVEL 21 
C 


MAIN 


OATE * 75045 


PARTICLE TRAJECTORY SOLUTION IN A SCROLL 

DIMENSION STATE! 18) *YR(6| t YR S ( 6 ) , R( 3 7, 2 > , FR ( 6 ) , XC 2 ) , Y< 2 ) 
DIMENSION A (37), 0(37), THETA! 37,2) 

DIMENS ION AA(3) ,B(3) ,C(3) , P( 3),PP!3) ,VP(3) ,PB!3) 

INTEGER RUNGE 

REACH 5,1010) GAM,RGAS,WTFL,RHOIP,TIP 
WRITE(6,2010)3AM,RGAS, WTFL ,R HO IP , T IP 
RE ADI 5, 1020) 3 (i) , Ml ) ,REX IT , SRDEND 
WR I TE! 6,2020 )D 1 1 ), A( 1) ,R EX I T , SRD6ND 


C 

c 

c 


1 

J 




i 

Li 



C 

U 


! 


initialize and build arpays 

DA=A( 1 J/36.0 
DO 20 1*2,37 
A( I ) =4 ( 1-1 )-0A 

IF (AC D.GT.i.OE-12) D( I )»D ( I -l ) *$QRT ( A{ I )/A ( I — l ) ) 

IF (A( I ).LE. 1.0E-12) D(I)=l. 06-12 
R ( I,1)*REXIT 
R ( I * 2) =REXI T*D ( I ) 

THETA( I,l)=FLOAT(I-l)*10. 

20 THETA! I ,2 ) -THET A( 1,1) 

STAPT=SR0END/10.*2. 

NSTART=START 
DO 25 I=NSTART,37 
ANG*360.0-TH6TA( 1,2) 

25 R ( 1 ,2)=REXIT*SQRT( UOfTANl ANG/57.29577)**2 ) 

R ( 1 , l ) =REX I T 
R ( 1,2)=REXIT+D(1) 

THET A( 1 ,1 ) = 0.0 
THETA( 1,2) =0.0 
EXPON* 1*0/ ( GAM-1.0) 

VCR=SQRT{2.0#GAM*RGAS*TIP/{GAM»1.0)) 

C IRCUM=2.0*3.141592/*REX IT 
CH I* AT AN2( DC l ) ,CIRCUM) 

DETERMINE GAS VELOCITY 

M* 1 

VU=WTFL/PHOIP/A( 1) 

VR = -VU*T AN ( CHI ) 

VEST=SQRT< VR**2*VJ**2)/VCR 
30 M=M»i 

RHO=RHOIP*( 1.0-( GAM-1, 0) / { GAM + l . 0 > *V£ST**2 ) **EXPON 
WTFLES =RHO*A C 1 ) *VU 

IFCABSC WTFLES-wrFL).LT.1.0E-4 ) GO TD 40 

IFCM.GT.90) WR I TE ( 6, 2060 ) VEST, RHQ, WTFLES , CHI ,VU,VR , VCR 
IF(M.GT.lOl) GO TO 810 
VU*WTF L/RHO/A ( 1) 

VR = -VU*T AN (CHI ) 

VEST*SQRT( VR**2*VU**2)/VCP 
GO TO 30 


15/17/25 


ETA( 2 ) 



MAIN 


DATE = 75345 


15/17/25 


G LEVEL 
1 40 


21 


v=vest*v:r 

TFMP=TlP*t l .0-(GAM-l .0)/( CAM ♦ 1 .3 ) *VE ST ** 2 I 





0 





u 

u 

u 

0 





i 

i 

! 



VZ=0,0 

PRINT OUT SOLUTION. 

CHIW=CH1*57. 29578 

WR 1 TEt 6 ,2030 ) V, VP ,VU, CH I W . V CR , R HO , T EKP 
DO 53 1-1,37 

53 WR ITEl 6,2040) I , THET A< 1 , 1) ,THET MI ,2 ) ,R< I , l ) , R ( ! , 2 ) 

DO 60 K = 1 * 2 
DO 60 1*1,37 

60 THET At I ,K)=THET4( I ,K)/ 57.205 78 
SRDEND=SR0END/57.29577 
VR SAVE* VR 
VUS AVE=VU 

START PARTICLE SOLUTION 

105 RE ADI 5 , 3000 ) ( STATE ( I ) ,1 * 18) 

WRITE! 6, 4000) l STATE ( T ) , I =1 , 1 8) 

REALM 5,3010 ) VISREF ,TR EF , TSUT , DGFC 

WRITE (6,4010) VTSRSF,T REF, TSUT, DGFC 

READ! 5,3320) RH3P , DI AP , H, TMAX , E TA { l ) , ETA ( 2 ) 

WR I TEC 6,4020) RHOP, DI AP, H, TM AX , ET A t l ) , ET A ( 2 ) 

RE AD ( 5 , 30 30 ) ( YR ( I ) , 1 = 1 . 6 ) 

WR IT EC 6,4030) (YR( I ),I = 1,6) 

YR ( 3) =YR( 3) / 57. 29577 
RE ADt 5 , 1000) ALPHA, BETA ,GPAVTY 
WRI TE(6, 3090) ALPHA, BETA, GRAVTY 
RE AO ( 5 , 3080 ) NSTEP 
WRITEt 6,4080) NSTEP 

RHOCR*RHOI P*(2.3/(GAM +1.0) ) **( i • 0/ ( GAM -1.0)) 

DELTA=RHOP*DIAP/RH0CR/O„ 3 

t:r=(2.o/(gam +i.o))*tip 

VI SCR* VIS REF* { (r:R/TREF)**1.5)*(TREF+TSJT) /( TCR+TSUT) 

TAU=RHDP*DI AP**2/18.0/VI SCR 

RECR*DI AP*RHOCR*VCP/VI SCR/ 2.0 

WRI TF( 6,5020) DE L TA , TAU, RE CR 

WRITEt 6,4090 ) 

CHEC< THAT PARTICLE STARTS INBOUNDS. 

NOUT =0 

RW=REXIT+D( 1 )*SQRT( L.O-YR( 3) /6. 28 31854) 
IF(YRt3).LT.0.0> N0UT=1 
IFtYRtD.GE.RW) NOU T=7 
I C (YR( D.LE.REXIT) NOUT*fl 
IF(NOUT.EO.O) G3 TO 130 
WRI TE16, 4040) NOIJT 
GO TO 105 
130 CONTINUE 


y 
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JLEVEL 21 


HA IN OATE • 75045 15/17/25 


flc 

a 

u 

y 

u 

c 

li 

U 

y 

u 

u 


i 

i 

t 


i'l 


u 


C 


INITIALIZE FOR FIRST STEP* 

ALPHA-ALPHA/57. 29S77 
BE T A -BET A/ 5 T .2 95 7 7 
RP ART-DI AP/2. 

N-6 

L-0 

NTIME-NSTEP 

T-0.0 

VR3-YR<3)*57. 29577 

WRITE (6 ,50001 L*T,VRI11,YR(2) , YR3, YRC4 1, YRI 51 , YRI 61 
TS-T 

00 620 I-l,N 
620 YRSf I 1*YRC I I 
RWS-RW 

VI STAR -VIS REF* C CTEMP/TREF I** 1 .51 *( TR EF*TSUT )/C TENP*TSUT1 


INTEGRATE USING RUNGE-KUTTA METHOD. 


625 IF CYRC31.LT.SR0END1 GO TO 626 
VR«V*SIN(YRC3I 1 
VU«V*C0SIYR<31) 

GO TO 627 

626 CONTINUE 
VR-VRSAVE 
VU-VUSAVE 

627 CONTINUE 

VO IFF* SORT I (VR-YRI21 1**2*< VU-YRIi 1*YRC41 1**2*<VZ-YRC6I 1**21 
R6NOLO-RHO*VOIF S *DI AP/ VI STAR 
CALL RNUHBRIRENOLOtOGFCtCDl 
BCON-RHO*CD/RHOP/RPART/2* 33333 
630 IFf RUNGECN,YR»FR,T»H| .NE.l) GO TO 640 
FR C 1 1 «YR( 21 

FRC21-YRC ll*YRI41**2*BC0N*VDIFF*CVR-YRC2l l-GRAVTY*C0SIYRC31*BETA| 


FRC3 1-YRC 41 

FR(41— 2.0*YR{2}*YRC4)/YRCll+BC0N*VDIFF*<VU-YR<il*YRC4) 1/YRIll 
l *GRAVTY*SINIYR(3»*BETAI/YRU I 


FRI51-YRC6) 

F R 1 6) -BC0N*V0 1 F c * C VZ-YRC 6 1 )-GRAVTY*S INI ALPHA 1 
GO TO 630 
640 CONTINUE 


DETERMINE IF WALL INTERACTION OCCURRED. 


NOUT-O 

IF IYRC31.LT. 0.01 NOUT-1 
IFCYRC31.GT. 6.28318541 NOUT-3 
IFIYRI 11.LE.REXIT1 NOUT-8 

IFI CNOUT.EQ.il. OR. (N0UT.E0.31. OR. (N0UT.E0.81 1 GO TO 780 

RW-REX I T*DC 1 l*$GRT I l.O-YRl 31/6.28318541 

IFI YRC1 l.GE.RW) MOUT-7 

1 6 IYRC31.GT.SRDEND1 GO TO 650 

IFIN0UT.EQ.01 GO TO 700 


I 


LEVEL 21 


HAIM 


DATE * 750*5 15/IT/25 


a 

a 

0 

j 

Li 


U 


I 

Li 


0 

D 

_ 


NTEST«0 

IFCYRC3I.GE. 1.571 NTEST* l 
AA(l)»RWS*COSCYRS(3> * 

AA( 2 )*RWS*SINC YRSC 3) > 

AA( 3) * YRS 15) 

B( I *»RW*COS(YR( 31 I 
R(2**RW*SIN(VR(3I* 

B(3 J*YR(5I 
GCl TO 660 

650 XTE$T«YRCl**C3S(YRC 31) 

IFCXTEST.LT. REXITJ GO TO 700 

N3UT*9 

NTFST* 1 

A A ( 1»*RFXIT 

ANG*6.2831854-YRS( 3) 

AA(2»*REXIT*TAN( ANGI 
AA ( 3 ) *YRS ( 5) 

BC 1 >»REXIT 
ANS*6.283185*»YR( 3) 

8( 2I*REXIT*TANC ANG* 

BC3)*YR<5) 

660 CONTINUE 
Cl l)*AA(ll 

C « 3 I *y ^ C 5 I ♦ SORT ( C A AC I J-BC 1! >**2MAAI2*-B(2> ***2*( AAC 3*-B( 3) 1**2* 
PC l **YRS( ll*COSC YRSC 3* ) 

P(2»*YRS(1 »*$IN( YRSC3* I 
PC 3* *YRS( 5* 

PPC1)«YRC i )*COSC YRC3I* 

PPC2>*YRCI)*S1MCYR<3)» 

PPC 3**YR( 5* 

T= TS 

CALL BOUNCE ( AA, B, C, P, PP, H,T. ETA, NF IX, PB, VP* 

T8*ATAN2(PB( 2* ,PB( 11 **57.29577 
RB* SQRTCP8tl***2+PB(2***2 I 

IF( (NTEST. EO. I ). AND. (TB.LE. 3.01 ) TB*TB«-360.0 
ZB-PBC3I 

WRITEC6 ,5030 ) NOUT , RB, TB , ZB 
YRC1)* SQRT(PBU***2«-PB(21**2) 

YR ( 3) * AT AN2CPBC 2 I ,PBC 1 * * 

I c C C NTEST. E 0.1 l.AND.CYRl 3) .LT.O.O) * YR ( 3* *YR ( 3* *6. 28316* 
YR(5»«PB<3) 

YR(2>*VPU**C3S< YRC 3*> *VP( 2* *S I N( YR ( 3* * 

YR(***-VPI11 *SIMCYR(3» »/ YR C 1 * *VP C 2 * *COS( YRC 3 * */YR C 1 * 

YR ( 6**VPI 3 * 

700 L«L*1 
TS*T 
RW$*RW 
00 760 I*i»N 
760 YRSI 1 1* YR ( I > 

780 I F( (NOUT.EQ.l > .OR. (N0UT.E0«3 * *0R. INCUT .E0.8* *0R# CT.GT.THAX ) ) 

1 GO TO 800 


'LEVEL 21 MAIM DATE = 75045 15/17/25 

! F ( ( ADS ( YR (2 ) ) .LT • l ,0E-4 I • AMD. ( A US !YR(4 ) ).LT. UOF-4 I* AMD. 

1 < ABS1YR 16) ).LT.l. OE-4) ) GO TO 800 
IF I NTI MF.GT.O) 5(1 TO 625 

\T !MF=NSTEP-L 
IFU.GT.l) NTIME-NSTEP 
' YR 3 ~ YR ( 3)*57. 29578 

WR I TE( 6 » 4050 ) L , T, YR ( l ) , Y» <2 ) ,YR3, YR (4) , YR( 5) ,YR ( 6 ) , REMOLD 

j| Gj TO 625 

800 CONTINUE 

YR3=YR(3)*57. 29577 

[I WR I TEC 6 ,4060 ) l , T , YR ( 1 ) » Y R ( 2 ) ,YR3,YR!4)»YR( 5 ) , YR ( 6 ) , REMOLD 

!£ 305 CONTINUE 

GO TO 105 

rr 810 WRI TEC 6,2050) 

ifc 

“C FORMAT STATEMENTS 

X 

[jj 1300 FORMAT ( 7F10. 4) 

» 1010 FORMAT ( 5 F10. 6 ) 

1020 FORMAT (4 P 10» 6) 

12310 FORMAT ( IH1 ,5X,21HINLFT SCROLL SDLUTI ON , / / , i 2X , 3HGA M , 1 IX , 4HP GAS , 
i l HX, 4HWTFL, 13X,5HRHDIP , l 2X ,3HTI P* / , ( 5 C 15.6) ) 

2020 FORMAT! lH0tlOX,4HD{i),llX,4HA(l),10X, 5 HR EXIT , 9X , 6HSR DEND, 
f7 l /,(4F15.6)) 

I 2030 F0RMAT(H0,13X,IHV,13X,2HVR, 13X,2HVIJ»12X ,3HCHl,i2X,3HVCR,l3X, 

* 1 3HRH0, ilX, 4HTFMP, /, ( 7F 15.6) ,//, L1H ORTHOGONAL , 5X , 1 3HT HET A ( I , 1) , 

2 5X, 10HTHETA(I,2),9X,6HR{I , l)»°X»6HR( 1,2) ) 

|j 2040 = ORMAT (I 11,2F15.4»2F15.6) 

U» 2353 FORMAT (37H0GAS FLOW SOLUTION FAILED TO CONVERGE) 

2060 FORMATC 1H0,7E15,8) 

3000 F3RMATC 18A4) 

[13010 FORMAT (E20.5»3F10.3 ) 

3020 =ORMAT(Fi0.2,3Fl0.4,?F13.3 ) 

I* 3330 FORMAT (6F10.3) 

| 3080 F 0 RM AT (15) 

■* 3090 =3RMAT( LH0,9X, 5HALPHA, 1 1 X , 4H QET A , 8X , 7HGR A V I T Y , / , (3F15.4) ) 
r „ 4330 FORMAT ( 1H1, 18A4) 

[t 401!) FORMAT! IH0,1 3X .5HVISREF, 1 1 X , 4HT R F F , L l X , 4HT SUT , IlX, 4-HDGFC , / , 

U 1 (E20.5,3F15.3) ) 

4320 FORMAT ( 1H0, 13X ,4HPHDP, ilX ,4-HDI AR , 14X, 1HH, 1 IX, 4HTMAX, 10X, 5HETA-N, 

|| 1 10X, 5HETA-T, /, ( F15.2 , 3 E 1 5 , 4, 2F 1 5 . 3 ) ) 

[j 4030 FORMAT ! 1H0, 9X , 5HYR ( l ) , 10X , 5HYR t 2 ) , l OX, 5HYR ( 3 ) , 1 OX , 5HYR(4), 

1 10X,5HYR( 5) ,IDX, 5HYR< 6) , / , ! 6F18. 6) ) 

-4040 FORMAT ( HO, 62H PARTICLE NOT IN PASSAGE AT FIRST POINT GIVEN, GO TO 
j 1 NEXT CASE) 

U 4050 F 0 RMAT ( 1H , I 5, El 0.2 ,7F15 .5 ) 

4060 FORMAT! i HO, I 5, El 0.2 ,7F 15.5 ) 

|f 4080 FORMAT !17 HO PRINT DATA FV ER Y, I 7 , 2X , 7H ST E R ( S i ) 

11 4090 FORMAT ( HO, 3X, 1 HL , 9X , l HT , 1 OX , 5HYR ( l) , l 0 X , 5HYR ( 2 ) , 1 OX , 5 HYR ( 3 ) , 

1 1 OX, 5HYR ( 4) , 1 OX, 5HYR! 5 ) , 10X,5HYR! 6 ) ,9X , 6HRENDL0) 

5000 F 3 RM AT ( 1H , T 5 , E 1 0. 2 , 6F 1 5 . 5 ) 

5020 FORMAT ( 32H0S IM I L ARITY PARAMETERS. DELTA = , FI 0.4, 5 X , 5HT AU =,F12.4, 

1 5X.6HRECR -, E12.4 ) 

5330 FORMAT ( HH BOUNCE OFF, 1 5 , F 15 . 5 , 1 5X , F 15 . 5 , 15 X , F 1 5. 5 ) 

STOP 
END 
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The function routine RUNGE has been removed from the 
published form of this report to protect the copyright 
of the authors of Reference 5. 


SUftRDjT I NE ft \ J MSR ( RfNOLDt 3GFC»CD> 

I = t ABSl«S\0L3> .LT .1.0E-W 1 ftEN3L^ = 1.3E-12 
!F{REN0LD.LT.1.3) GO T 1 26 

l = t ( RENOl D.GE. I . 3 ) . AND . { RENDLD.L T . 1 .0E3J ) GH T3 27 

C3-DGFC*Q«4 

RETURN 

26 CD*DGFC*l 4.5«-2^.0/RFN0LD) 

RE TURN 

27 Aft E=ALOG( RENOLDJ 

C3*( 28.5-2*. 0*Aft=*9.06B2*AP5**2-l.77l3*AftE**3+0.l718*AftE*** 

l -0.0065*ARE**5) *DGFC 
RETURN 
END 
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LEVEL 21 BOUNC p DUE = 75345 15/17/25 

SUBROUTINE BflJNCEl A,R,C,P,PP,H,T,ETA,NFIX,P8,VP) 

DIMENSION At 3) ,B(3) ,C( 0) , P(3 ) * PP ( 3 ) • V ( 3 ) , 4B(3),AC( 3) ,G( 3,3) ,D( 51 , 
l PB( 3 ) 

DIMENSION GS( 3,3) ,VP(3) , JN(3 ) ,PN(3) 

D I ME NS I ON F T A ( ? ) 

C 

N p I X = l 

on io I ■ l » 3 

VI I ) =( PP( I ) -PC I ) ) /H 

A B ( I ) = 8 ( t )-A ( I } 

10 AC ( I ) = C( I )-A { I ) 

W 

C DETERMINE UNIT NORMAL TO SURFACE 

UNI l)=AB(2)*AC(3)-AB(3)*AC (2 1 
UN(2) = AB(3)*AC(1 )-A<3( l )*AC (3 ) 

UN(3)=AB(1)*AC(2)-AB(2)#AC (I ) 

C M AG= SORTIUNI l)**2+UN(2)**2+UN(3)*< t 2) 

I F { ABSICMAG) «GT .I.0E-L2 ) GO TO 20 
NF I X = 0 
RE TURN 

20 00 30 1=1,3 
30 UNI n = UN(I)/CMAG 

c 

C DETERMINE THE INTERSECTION POINT, PB, OF THE PLANE AND TRAJECTORY. 

C 

OET A= JN ( 1 ) *V (1 )**2*UN( 2) *V (1) *V ( 2 ) +UN< 3J *V( I)*V< 3) 

D I l ) *UN( 1 ) * A ( I ) *-UN(?) : *A(?)+UN(3)#A<3) 

D(2t=V(2)*P( L)-V< 1 )*P( 2) 

D(3)=V(3)*P( l ) “V ( 1 ) # P ( 3) 

DO 40 4=1,3 
40 G I I, J ) =UN ( J ) 

3(2,1)= V ( 2 ) 

G( 2,2) =-V( I ) 

G ( 2 , 3 ) =0. 0 

G( 3, U = V( 3) 

G( 3 , 2 ) =0. 0 
G( 3,3) =“V ( I ) 

r 

u 

C IF DETERMINANT EQUALS ZERO, GO TO 80 

f 

I F I ABS( DETA >.Lt .L.OE-12 ) GO TO BO 
DO 70 K = 1 , 3 
00 50 1=1 ,3 
DO 50 4=1,3 
50 GSU , J ) =G( 1,4) 

DO 60 1=1,3 
60 GS( 1 1 K ) = 0 ( I ) 

PB (K)=GS( 1 ,1 )*GS(2, 2 ) * GS C 3,3)*GS( 1,2)*GS( 2, 3)*GS( 3, I )+3S( 1,3) 

1 *3S ( 2 » i)*GS(3,2)-GS<3,l)*GS<2,2)#GS(l,3)-GS(3,2)*GS(2,3>*GS( 1,1 ) 

2 *GS( 3, 3)*GS( 2, 1 )*GS< 1 ,2 ) 

70 P8(K)=PB(K)/DETA 

GO TO 100 
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nonn o o n nno 


LEVEL >1 


pounce 


DATE 


75045 


15/ l7/?5 


RESET MATRIX AND SOLVE EOR PR* IE DET. EQUALS ZF.Rn, 00 TO 93 


so p a ( 1 1 =p ( l ) 

OETB=-lJN( ?)*V( 2)-UN( 3 ) *V C 3 1 
I F { AttS(DETR).L=.l.Of-l2) GO TO 90 
r>(4)«UM<2i*Pf?»HINC3)*P<3> 
3 { 5 )=vm*pm-vm*p( 3 ) 

PB(2)=(-D( 4)*V(2)-D<5) *UN< 3) l/OETB 
3 B(3) = (UN(2)*D<5)-vn)*D(4)) /OETR 

an tq ioo 

SPECIAL CASE THAT YIELDS ZERO DETERMINANT ALWAYS. 


90 P8(21=P(2) 

PB(3)=P(31 

ioo continue 

DETERMINE THE INTERSECTION POINT* PN, OF THE SURFACE NORMAL THRU P 
IF DETERMINANT EQUALS ZERO, GO TO 140 


OETA = JN( 1 )**3*JN( l 1*UN( 2 1 **2 +UN ( l )*UN( 31 **2 
I=( A8S(DETA1.L?.1.0E-I21 GO TO 140 
D( 2 1 = P ( 1 1 *UN { 2 1 **P ( 2 ) *UN ( I) 

D(3)=PIl)*UN(3)-P(3)*UN( l) 

3(2*1)= UN( 2 1 
G ( 2 * 2 1 =“J N ( l ) 

3( 2,3) =0.0 
G( 3,11= UN (*3) 

GI3, 21=0.0 
3(3,3) =-UN( l 1 
DO 130 K = 1 , 3 
DD 110 1=1,3 
DO 110 J= 1 » 3 
110 GS(!,J)=G(I,J) 

DO 120 1=1,3 

PN( K) =3S ( 1 » l > *GS( 2, 2 )*GS ( 3 ,3 ) MiS (lt2)*GS(2,3)*GS(3,l)+GS(i,3) 

1 *G$( 2* t) *GS(3 ,?)“GS( 3, l )*GS(2»2) *GS ( 1 , 3 1 -GS ( 3, 2 1 *GS ( 2 , 3 1 *GSf 1,1) 

2 -SSI3,31*GS(2,U*GS(1,2) 

130 PN(K)=PN(K)/OETA 

IF ( [ 3 ABS?UN( 1)1. GT. WOE-12). AND. ( APS(UN(2) 1 .G T . i.OE-12) 13D TO L50 
PN( 1)=P{1) 

PN(2)=P(2) 

PN( 3 1 *P( 3 I 


140 


PN(3)=A(31 
GO TO 160 
150 PN ( 1 ) = A ( 1 ) 
PN( 2) =P(2) 
PN ( 3 1 = P ( 3 1 
160 CONTINUE 



1 


-I 


l 


I l 1 — J 


(EVFL 21 PDUNCF n ATF = 7 r )IH5 

C OETFR M IN? PORT 1 ON IF TIMF SLC.MFNT JSFD TO TRAVEL FP.f}M P TO PB 

OPB= SQRTU PR( I >-P ll))**2*(PPt 21 -P (2 >1**2* <PB(3»-PI 3H**2> 
yPP^SORTlVin^^+vm^Z + vm**?) 
or TME=OPR/VPP 
c 

C EXTENT LINE PN-PP THE PROPER DISTANCE TO FIND PNP* 

C THEN FXTFNT A LINE NORMAL TO THE SURFACE FROM PNP TO GET THF 

C AFTER POUNCE, PP. rtu _ ocuAfWfMr 

C FIND VELOCITY COORDINATES BASED ON PP . PB AND TIME REMAINING 

C SEGMENT. 

C 

DO L 70 1 = 1,3 

S=(P9( 1>-PN( I) )/DT!MF 

PNP=PB( H+ETAI 2) *S*( H-DTI ME) 

SN=(PN( I)-P( I) I/DTIMF 
P 3 ( I ) = PNP-ETA( 1 ) *SN*(H-OTI «E ) 

170 VP I I) = <PPU )-PBII) ) / ( H-QT I ME ) 

T = T +H 
RE TURN 
END 


15/17/25 


POINT 

IN 
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Example 

The example case presented here uses the ft. , lbm. , second 
system of units. The gas flow conditions correspond to inlet 
stagnation conditions of standard sea level air. The scroll 
dimension D(l) is 0.4 ft. and the exit radius is 0.3615 ft. The 
particle inlet velocity is in the same direction as the velocity, 
its magnitude is approximately one half the gas velocity. The 
particle has a specific gravity of 3 and a diameter of 12 microns. 
The normal and tangential restitution coefficients are assumed 
to be 1.0. Gravity is included. 

The following pages contain a computer code sheet with the 
data arranged in the proper columns, and the output for this 
example . 
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INLET SCROLL SOLUTION 


GAM RGAS 

1.400000 1715.479980 


WTFL RHOIP 

0.486000 0.076400 


TIP 

518.699951 


D(l) 

0.400000 


A(l) REXIT SRDEND 

0.080000 0.361500 316.174805 


V 

80.950897 


VR 

-14.039830 


VU 

79.724136 


CHI 

9.987672 


VCR RHO 

1018.882568 0.076199 


TEMP 

518.154053 


ORTHOGONAL 

THETA (1,1) 

THETA (I , 2) 

R(I,1> 

R(I»2) 

1 

0.0 

0.0 

0.361500 

0.761500 

2 

10.0000 

10.0000 

0.361500 

0.755905 

3 

20.0000 

20.0000 

0.361500 

0.750230 

4 

30.0000 

30.0000 

0.361500 

0.744471 

5 

40.0000 

40.0000 

0.361500 

0.738623 

6 

50.0000 

50.0000 

0.361500 

0.732684 

7 

60.0000 

60.0000 

0.361500 

0.726648 

8 

70.0000 

70.0000 

0.361500 

0.720510 

9 

80.0000 

80.0000 

0.361500 

0.714266 

10 

90.0000 

90.0000 

0.361500 

0.707910 

11 

100.0000 

100.0000 

0.361500 

0.701434 

12 

110.0000 

110.0000 

0.361500 

0.694833 

13 

120.0000 

120.0000 

0.361500 

0.688098 

14 

130.0000 

130.0000 

0.361500 

0.681221 

15 

140.0000 

140.0000 

0.361500 

0.674194 

16 

150.0000 

150.0000 

0.361500 

0.667004 

17 

160.0000 

160.0000 

0.361500 

0.659641 

18 

170.0000 

170.0000 

0,361500 

0.652092 

19 

180.0000 

180.0000 

0.361500 

0.644342 

20 

190.0000 

190.0000 

0.361500 

0.636373 

21 

200.0000 

200.0000 

0.361500 

0.628166 

22 

210.0000 

210.0000 

0.361500 

0.619698 

23 

220.0000 

220.0000 

0.361500 

0.610943 

24 

230.0000 

230.0000 

0.361500 

0.601869 

25 

240.0000 

240.0000 

0.361500 

0.592439 

26 

250.0000 

250.0000 

0.361500 

0.582607 

27 

260.0000 

260.0000 

0.361500 

0.572317 

28 

270.0000 

270.0000 

0.361500 

0.561498 

29 

280.0000 

280.0000 

0.361500 

0.550060 

30 

290.0000 

290.0000 

0.361500 

0.537882 

31 

300.0000 

300.0000 

0.361500 

0.524797 

32 

310.0000 

310.0000 

0.361500 

0.510569 

33 

320.0000 

320.0000 

0.361500 

0.471905 

34 

330.0000 

330.0000 

0.361500 

0.417424 

35 

340.0000 

340.0000 

0.361500 

0.384700 

36 

350.0000 

350.0000 

0.361500 

0.367077 

37 

360.0000 

360.0000 

0.361500 

0.361500 
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EXAMPLE CASE FOR NASA REPORT V-PART/V-GASS “ 50% 


»■"•■■■ i 


b~. ! r?~ - J 8^1 V*** ■"—I 


VISREF TREF TSUT DGFC 

0. 10600F-04 492.000 198.200 1.000 



RHOP 

DIAP 

H 

TMAX ETA-N 

ETA-T 




187.20 

0. 3880F-04 

0. 1000E-04 

0.1000E- 

-05 1.000 

1.000 




YR(1> 

YR(2) 

YR<3) 

YR(4) YR(5) 

YR{6) 



0. 

561500 

0.0 

0.000100 

51.500000 0.0 

0.0 




ALPHA 

BETA 

GRAVITY 







0.0 

0.0 

32.1740 






PRINT DATA EVERY 

100 STEP (S) 







SIMILARITY PARAMETERS. DELTA 

- 0.4999 

TAU - 0. 1638E-02 RECR 

- 0.1002E 

03 


I 

T 

YR(1) 

YR(2) 

YR(3) 

YR(4) 

YR{5) 

YR(6) 

REHOLD 

0 

0.0 

0.56150 

0.0 

0.00010 

51.50000 

0.0 

0.0 


100 

0.10F-02 

0.55653 

-6.90235 

5.35006 

118.81465 

0.0 

0.0 

4.15392 

200 

0.20F-02 

0.54999 

-5.85931 

12.79208 

137.68571 

0.0 

0.0 

2.44109 

300 

0.30F-02 

0.54486 

-4.50850 

20.91054 

144.63770 

0.0 

0.0 

2.56241 

400 

0.40F-02 

0.54076 

-3.76134 

29.29121 

147.53693 

0.0 

0.0 

2.75175 

500 

0.50F-02 

0.53720 

-3.40780 

37.79132 

149.05623 

0.0 

0.0 

2.84865 

600 

0.60F-02 

0.53388 

-3.23498 

46.36333 

150.13127 

0.0 

0.0 

2.89599 

700 

0.70F-02 

0.53070 

-3.13445 

54.99220 

151.06725 

0.0 

0.0 

2.92322 

800 

O.BOF-02 

0.52760 

-3.06069 

63.67128 

151.95792 

0.0 

.0 

2.94302 

900 

0.90F-02 

0.52457 

-2.99645 

72.40021 

152.83026 

0.0 

0.0 

2.96019 

1000 

0. 10F-01 

0.52160 

-2.93566 

81.17876 

153.69142 

0.0 

0.0 

2.97642 

1100 

O.llF-Oi 

0.51869 

-2.87635 

90.00636 

154.54301 

0.0 

0.0 

2.99224 

1200 

0.12F-01 

0.51584 

-2.81796 

98.88245 

155.38512 

0.0 

0.0 

3.00781 

1300 

0.13F-01 

0.51305 

-2.76041 

107.80649 

156.21758 

0.0 

0.0 

3.02315 

1400 

0.14F-01 

0.51032 

-2.70373 

116.77803 

157.04021 

0.0 

0.0 

3.03825 

1500 

0.15F-01 

0.50764 

-2.64802 

125.79633 

157.85300 

0.0 

0.0 

3.05308 

1600 

0.16F-01 

0.50501 

-2.59336 

134.86092 

158.65587 

0.0 

0.0 

3.06764 

1700 

0.17F-01 

0.50244 

-2.53983 

143.97130 

159.44893 

0.0 

0.0 

3.08188 

1800 

0.18F-01 

0.49993 

-2.48751 

153.12682 

160.23227 

0.0 

0.0 

3.09581 

1900 

0.19F-01 

0.49746 

-2.43643 

162.32692 

161.00612 

0.0 

0.0 

3.10940 

2000 

0.20F-01 

0.49505 

-2.38664 

171.57117 

161.77072 

0.0 

0.0 

3.12265 

2100 

0. 2 IF- 01 

0.49269 

-2.33815 

180.85886 

162.52635 

0.0 

0.0 

3.13555 

2200 

0.22F-01 

0.49037 

-2.29094 

190.18961 

163.27335 

0.0 

0.0 

3.14811 

2300 

0.23F-01 

0.48810 

-2.24500 

199.56297 

164.01205 

0.0 

0.0s 

3.16034 

2400 

0.24F-01 

0. 48587 

-2.20028 

208.97836 

164.74275 

0.0 

0.0 

3.17224 

2500 

0.25F-01 

0.48369 

-2.15672 

218.43538 

165.46588 

0.0 

0.0 

3.18384 

2600 

0.26F-01 

0.48155 

-2.11422 

227.93378 

166.18169 

0.0 

0.0 

3.19516 

2700 

0.27F-01 

0.47946 

-2.07271 

237.47281 

166.89049 

0.0 

0.0 

3.20622 

2800 

0.28F-01 

0.47740 

-2.03206 

247.05246 

167.59248 

u.O 

0.0 

3.21706 

2900 

0.29F-01 

0.47539 

-1.99217 

256.67188 

168.28787 

0.0 

0.0 

3.22770 

3000 

0. 30F-01 

0. 47341 

-1.95290 

266.33105 

168.97672 

0.0 

0.0 

3.23818 

3100 

0.31F-01 

0.47148 

-1.91413 

276.02954 

169.65903 

0.0 

0.0 

3.248S3 

3200 

0.32F-01 

0.46958 

-1.87573 

285.76709 

170.33478 

0.0 

0.0 

3.75878 

3300 

0.33F-01 

0.46772 

-1.83758 

295.54297 

171.00374 

0.0 

0.0 

3.26898 

3400 

0.34F-01 

0.46590 

-1.79959 

305.35693 

171.66573 

0.0 

0.0 

3.27913 

3500 

0.35F-01 

0.46412 

-1.76163 

315.20874 

172.32031 

0.0 

0.0 

3.28929 

BOUNCE 

OFF 9 

0.44698 


323.97534 


0.0 



3600 

0. 36F-01 

0.44470 

-56.60704 

324.23364 

114.17044 

0.0 

0.0 

4.76184 

3700 

0.37F-01 

0.39586 

-41.26906 

332.46655 

169.90005 

0.0 

0.0 

1.60757 

3800 

0.38F-01 

0. 36255 

-24.94926 

343.41602 

210.00803 

0.0 

0.0 

0.63308 

3804 

0. 38F-01 

0.36132 

-24.06871 

344.01978 

211.60571 

0.0 

0.0 

0.60650 


STATOR - Particles in the Stators 

This program integrates the equations of motion of a 
particle in order to determine the trajectory of the particle 
in a stator. The solution neglects the gravity force/ is 
three dimensional and the particle may bounce off any of the 
four surfaces that surround the channel. The program is re- 
stricted by a constant spacing from hub to shroud. The 
coordinate system is the r, 6/ z system which is indicated 
in Figure 16. 

Method 

Figure 21 is a flow diagram for this program. It illustrates 
the iterative technique used to find the average gas properties 
along the particle trajectory, which was explained previously. 

As soon as the program determines that a collision has occurred, 
the program bounces the particle off the surface and then con- 
tinues the trajectory from this point. 

The main program uses the subroutines, RUNGE, RNUMBR, 

DLOCAT, POLATE, RESET, BOUNCE and RESTLO. All of these sub- 
routines have been described previously except RESET, which 
resets the average values used after each iteration, and 
linearly extrapolates the properties to estimate the average 
value over the next time step. 

Input 

There are two sets of input. The first set specifies gas 
flow properties, and consists of two dimensional arrays for 
magnitude and direction of the flow velocities within the 
field. This program works with any consistant system of 
units. An example of the input data is included with the 
example case presented after the program listing. The first 
set of input cards take the following form: 

TITLE 


MX, KMX, NB 


(18A4) 

(315) 



GAMMA, TIP, RHOIP, RGAS 
VIS REF, TREF, TSUT, DGFC 
ZMAX, FIRST 
NSTEP, H 
R(I,K) £rray 
THETA ( I, K) Array 
V(I,K) Array 
BETA(I,K) Array 


(4F10.6) 

(E20.4, 3F10.6) 
(2F10.6) 

(IS, E10.2) 

(8F10.6) 

(8F10.6) 

(8F10.6) 

(8FI0.6) 


The second set of data cards specify the type of particle, 
its initial position and velocity. Each particle can be 
described by three input cards which take the following form. 

TITLE (18A4) 

DIAP, RHOIP (E20.4, F10.6) 

(YR(I) , 1-1,6) (6F10.6) 


These variables are defined below. For studies that are done 
with multiple particles, additional sets of input data cards 
as indicated for the second data card set may be stacked to- 
gether. When the program completes the trajectory for one 
particle, it goes to the next set automatically. 


Variables 

TITLE 


MX 

KMX 

NB 

GAMMA 


The first card is reproduced at the top of the 
first page of output. Any statement in columns 
2 to 72 will be reproduced. 

The number of blade to blade constant radius 
orthogonals. 

The number of streamlines used in the description 
of the flow. 

The number of nozzle blades in the ring • 

The ratio of specific heats. 
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TIP - The gas inlet stagnation temperature. (Degrees Abs.) 

3 

RHOXP - The gas inlet stagnation density. (Mass/Length ) 

2 2 

RGAS - The gas constant. (Length /Time Degrees Abs.) 

VISREF - Reference viscosity corresponding to TREF. Used in 

Sutherland's Law. (Mass/Length x Time) 

l 

TREF - Reference temperature corresponding to VISREF. Used 
in Sutherland’s Law. (Degrees Abs.) 

TSUT - Constant used in Sutherland's Law. (198. 6®R or 110 W K) . 

DGFC - Drag factor. The spherical drag coefficient based on 

Reynolds number is multipled by DGFC. Except in very 
special caseB, this should be 1.0. 

ZMAX - The flow field extends in the axial direction between 
z » 0.0 and z « ZMAX. (Length) » 

FIRST - The angular position of the first blade. (Degrees) . See 

Figure 22. All particles are transposed to a corresponding 
location in the channel of the first blade , its trajectory 
determined up till the exit from the blade row. The 
exit conditions are then moved back to the corresponding 
location at the original channel. 

NSTEP - Integer that determines the amount of printed output. 

Output data is printed every NSTEP time increments. 

H - Integration time increment. (Time) . If extremely long 

computer run times are experienced, thiB can be made 
larger. If the program fails to converge, thiB can be 
made smaller. 

R array - The radial position of the grid points of the flow field. 

(Length) . The program is set up to use constant radius 
lines from blade to blade, as indicated in Figure 22. 

THETA - The angular position of the grid pointB in the flow 
Array field. (Degrees) . Indicated on Figure 22. 

V Array - The normalized gas velocity at the grid point. (V/V cr ) 

BETA - The direction of the gas velocity vector at the 

Array corresponding grid point. (Degrees). Indicated in Figure 22. 
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DIAP 

RHOP 

YR(1) 

YR(2) 


YR(3) - 

YR(4) - 

YR (5) - 

YR(6) - 

OUTPUT 

The first part of the output is an echo check of the first 
set of data cards that describe the gas flow. Such data checks 
are useful in correcting key punch mistakes on the input cards. 
These checks cover the first five pages of the output and the 
four array variables are listed on separate pages. The printed 
output for each particle starts at the top of a new page with the 
echo check of the data that corresponds to the data cards for the 
particle. 

Next, the program transposes the initial coordinates of the 
particle so that the particle enters the first passage. This is 
done by correcting the angular position of the particle so that 
the particle is in the required passage. The program notes this 
correction and writes "PARTICLE ENTERS PASSAGE XX INLET ANGLE 
CORRECTED TO XXXX" . Next, the program calculates the similarity 
parameters that are useful in relating this particle to other 
particles that have similar trajectories. Finally, the program 
writes trajectory information every NSTEP time increments until 
the solution is complete, and then writes the last solution point 
and goes on to the next particle. 

The additional terms of the output that are not defined 
as part of the input are listed below. 


Particle diameter. (Length) 

3 

Particle density. (Mass/Length ) 

Particle initial radial position. (Length) 

Particle initial radial velocity. The outward 
direction corresponds to the positive direction 
and the inward direction corresponds to the negative 
direction. (Length/Time) 

Particle initial angular position. (Degrees) 
Particle initial angular velocity. (1/Time) 

Particle initial axial position. (Length) 

Particle initial axial velocity. (Length/Time) 
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DELTA 

TAU 

RECR 

M 

RENOLD 


The characteristic length as given in Equation (7) . 
(Length) 

The time constant as given in Equation (8). (Time) 

The Reynolds number as given in Equation (9) . 

Ari» iteration counter. If the air velocity fails to 
converge to the proper average values after 100 steps, 

M * 101. 

The Reynolds number of the particle at this point. 
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cion 


C PARTICLE TR4JFCTn» IES IN RAOUL STATOR 
C 

INTEGER RUNGE 

DIMFNS10N R< 21,21 ), THETA 12 1 ,21), VI 21 ,21) ,BET A (2 1 ,21 ) , STATE I 18 I ♦ 

1 ETA( 2 )» VRI 61 ,VR!4>,VUI4) » VZ C 4) , TE MPA (A I , RHOAI4 | , V I STAR | 4 | , 

2 YRSI6),FR( 6) ,4131 ,Rt3> , C I 3 ) ,P{ 3 ) , PP( 3 ) ,PQO) , VP<3) 

READ FLOW FIELD DATA 


RE ADI 5,1030) I STATE! I I • 1*1, IS) 

WR I TE I 6 ,2030 L I S T AT E III » 1=1 . 1 8 1 

RE ADI 5,1010) MX, KMX, NR 

WRITEI6, 2010 )MX, KMX, NB 

RF ADI 5, 1020 1 GAMMA ,T IP, RMO! P,RGAS 

WR I TE 1 6 , 201 1 I GAMMA, T IP, RHOI P,RGAS 

RE ADI 5, 1040) VTSRFF ,TREF ,TSUT,DGFC 

MR I TE I 6, 2031 )V!SR=F ,TREF,TSUT,OGFC 

R F AOI 5 , 10 20) ZMAX » c IPS T 

MR I TEI 6,201 2 )Z max, FIRST 

RE AD| 5, 1050) NSTEP , H 

WRITE!6*20't0)NSTEP,H 

WRI TE I 6, 2 1 30) 

DO 10 1 3 1 , M X 

RE ADI 5 , 1020 ) I R 1 1 ,K ), K* 1 ,KMX ) 

10 WRI TEI6, 20131 I R ( I , K ) , K= 1 ,KMX ) 
WRITE! 6,2130 ) 

00 20 1*1, MX 


READ! 5, 1020) ( THETA! I ,K) ,K=l ,KMX) 

20 WRITEI6,2014) ITHETAI I ,K) ,K*1,KMX) 

WR I TE I 6 ,2 1 30 ) 

DO 30 1*1, MX 

READ! 5, 1020 ) IV 1 1 ♦ K) , K= 1 , KMX ) 

30 WR I TE 1 6 , 201 5 ) I VI I , K ) , K=1 , KMX ) 

WRI TF<6,2130) 

DO 40 1*1, MX 

RE ADIS , 1020 ) (RETA(I,K),K*l, KMX ) 

40 WRITE! 6,2016) I BETA 1 1 ,K ) , K=1 ,KMX ) 

VCR* SORT I 2,0*GAMMA*RGAS* TIP/|GAMMA4l .0)1 
F I RST*FIR ST/57, 2957 T 


DO 60 1*1, MX 
DO 60 K*1,KMX 

THETA! I ,K)*THET4( I ,K)/57* 29577 
BETA! I ,K)*BETA(I,K)/57.29577 

60 vi i ,k»*vi i , ki*v:r 


READ PARTICLE DATA 


50 REA0I5, 10301 I STATE! I ) , I* 1 , 13) 
WRITE! 6,2030) I STATE! I ), 1*1 , 18) 
RE ADI 5, 1040 ) 0!4P,RH0P 
WRITEI6, 20321 DIAP,RHOP 
READ! 5, 1020) 4 VR ( 1 1 , I* l , 6 ) 
WRITE! 6,2033 ) I YRI 1 ) ,1 *1 ,6) 


66 


INITIALIZE 


YR! 3)*YR!3l/57. 29577 

TTEST*FHSM'6*283l86*FL3ATII-U/FtOAT(N8l 

I F I TTEST.GT «YR 13 I I GO TO 66 

65 CONTINUE 

66 J* l-l 

J5oJ*Jr<3)-F^IRST-6.283186*FLOATIJI/FLOAT|NB) 

YR3=YR! 3) *57* 29577 
WR I TE! 6 .2 1AO I J.YR3 

EXPON*1.0/!GAMMA-l.Ol 

RHOCR«RHOIP*I2.3/(GAMHAH.Ol >**EXPOti 

OELTA*RHPP*0 IAP/RHOCR/0. 3 

TCR = TIP*2»0/I5AMMA+l«0) . TB __ T enT4 /I TCR+TSUT I 

VISCR*VISREF*IITCR/TR€F|**1.5I*<TREF+TSUT|/ITCR»TSUT> 

T AU = RHOP*D I AP**2/18.0/VISCR 
RECR=D I AP*RHOCR*VCR/Vt SCR/ 2.0 
MR I TE ! 6 » 2050 I PELT A*TAU*RFCR 
T = 0.0 

CP=GAMMA*RGAS/!3AHMA-l .01 

RP ART *DIAP/2»0 
N* 6 
M= 1 

ntime*nstep 

T S= T 

ALPHA*- 90 *0/57 .295 77 
TRPS=TREF+T5UI 


DETERMINE AIR 


VELOCITIES AND PROPERTIES AT PARTICLE LOCATION 


70 


CALL DLOCATiR, THETA, ZMAX.MX.KMX.YR, IP. KP.NOUTI 

1= (NOUT.EQ.OI GO TO 70 


IRITEI 6,2070 ) 

■ Al ISOLATE IR,THETA,V,YR(1)»YR(3I»IP »KP» VPP » 00) 

ALL POLATE IR.1HET A f BETA,YR( 1) , Y» I 3 ) * I P* KP t BET AP ♦ DO ) 
rR (l» = VPP*COSIBET AP)*S INI ALPHA » 
fUl 1 ) =VPP* SINIBEJAP) 


CALL RESET! VR,1) 
CALL RESET! VU.U 
CALL RESET! VZ,l) 
CALL RESETITEMPA.il 
CALL RESET! RHOA.ll 
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LEVEL 21 
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call resetcvistar, n 

00 90 1=1, N 
90 VRSUI*Y«m 


INTEGRATE USING RUN6F-KUTTA METHOD 


C 

c 

c 


100 VDIFF=SQRTC C VRC 2 I -YR l 2 1 I ** 2M VUC 2 I -YR 1 1) *YR CA|»»*2 
l «•! VZ m~YR(6ll**2) 
RENOL3*RHOAC2)*VOIFF*DIAP/VISTARC2I 
CALL RNUMBRI REMOLD, OGFCtCO) 

BCON=RHOA 1 2 l\CD/RHOP/R PART/2. 33333 

no ifcrungecn,yr,fr,t,hi.ne. n go to 120 
FR U > = VRC2I 

FR| 2)*YR( l ) * YR ( R | ♦* 2+BCON* VO IFF*CVRC2I -YP €21) 


PRC3MYRC4) 

FRC A1 = -2.0*YRC2)*YR C4I/YRC U ♦BCON*VD I FF* I VU I 21 


-YRll»*YR«AI l/YRIl) 


F R C 5 I *YR ( 6 I 

FR I6)=BC0N*VDIFF*(VZ<2I-YR(6J I 


30 TO 110 
120 CONTINUE 


DETERMINE IF WALL INTERACTION OCCURRED. 


CALL DLOCAT (R, THETA,2MAX,MX,KMX,YR,IP,KP,N0UTI 

IF CNOUT.EQ.O) GO TO 150 

!FnN3UT.EQ.l>.OR.INOUT.EQ.3H GO TO 200 
GO TO 125 
124 IP*IPS 

12 5 AC1I-RC IP,KP)*C3S(THETAl IP,KP» ) 

AC 2)=R < IP,KP)*SIN<TMEtAIIP,KPn 
B ( 1 ) =R ( IP-1 ,KP)*COS< THETA C IP-1,KP) ) 
B<2|=RUP-l,K«»)*SINITHETAUP-l,KPn 
C(1)=A(1) 

C C 2 ) = A ( 2) 

IFC(N0UT.E0.5).0R. (N0UT.E0.6M GO TO 130 
AC 31 = YRSC 5) 

91 3 } =YRS ( 5 ) 

H ?> = va ${ 5 1 ♦ 52? * ( t U )-Min**2*CM2l-?C?l I * ,r 2M AC 3 ) - -1 3 > 1 *•23 
GO TO 140 

130 IF (N0JT.E0.5 I A I 3 ) = 0 .0 
IF CN0UT.EQ.6 I A(3)=ZMAX 
B C 3 1 =A f 3 » 

C C 3 I = A C 3 ) 

140 Pill *YRSC 1 l*CQ$C YRSC3I ) 

PIZ )=YRSC 1 1 *S INC YR S C 3 1 I 
PC 31 *YRSC 5 I 

PPC 1)=YRC il*COS(YRC 3)1 
PP C 2 I =YRC 1 1 *S IN < YR I 3)1 
PP C 3) *YRC 5 I 
T=TS 

CALL BOUNCE <A,B,C,P,PP,H,T,ETA,NFIX,PB,VP| 

IF CNFI X.EQ.O) GO TO 200 
IFCNFIX.EQ.2) GO TO 124 


68 


PG LEVEL 21 


MAIN 
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YR (1 )*SQRT(P8( 1I**2*P8( 2)**2) 

YR(3)*ATAN2(PB<i)»P8(l ) ) 

YR3*YR( 3)*57. 2*577 
YR(5)*PB( 3) 

WRITE! 6 *20801 NDUT, YR ( 1) ,YR3,YR(5) 

YR( 2)=VP( 1 )*COS(YR! 3)) *VP( 2)*SIN(YR( 3) ) 

VR !<,) = ( -VP (l »*SIN(YR(3) » *VP(2)*C0S(YR( 31 1 l/YRUI 
YR(6)»VP( 3) 

GO TO 170 

DETERMINE AIR VALUES AT NEW 1.00 AT ION. 

150 CALL POLATE(R» HFTA,V,YR( 1) , YR ! 3 ) , IP , KP, VPP , DO) 

CALL POL4TF(R,THFTA,RET4,YR( l),YR(3) , 1 P, KP , BETAP , 00) 

VR (*)=VPP*CnS(RETAP )*S INI ALPHA ) 

VU(4) »VP°*S INI BETAP) 

VZ(4)=VPP*C0S< BET AP) *COS( ALPHA) 

TE MPAI * I *T I P*( 1.0- < (GAMMA- 1.01/ ( GAMMA*! . 0 )) * ( VPP / VC R 1**2) 
RH0A(4)*RH0IP*( T CMPA(4)/TIP)**EXP0N 

VISTAR(4)*VISREF*( ( TEMPA ( * )✓ TRFF ) **l . 5) M TRPS) / ( TE MPA( A) fTSUT | 

TEST AIR VALUES USE3, IF INCORRECT, RESET INTEGRATION VALUFS ANO 
GO TO 103. IF CORRECT, GO TO 170. 

I s ( (ABS(VR(4)-VR(3) I *LT. l.OE-4 1. AND. (ASS ( VU! 4 )-Vll! 3H.LT. l.OE-4 I 
1 .AND. (AB$(VZ(4|-VZ(3I) •LT.l.OF-41 IGO TO 170 
CALL RESET ( VR,2) 

CALL RE SE T( VU,2) 

CALL RESET ( VZ , 2 ) 

CALL RE SET ( TEMPA, 2) 

CALL RESET! RH0A,2) 

CALL RE SFT ! VI ST AR » 2 ) 

T = TS 

DO 160 1*1,6 
160 VR( I )«YRS< I ) 

IMM.GT.100) GO TO 200 

M=M*1 

GO TO 100 

COMPLFTE INTEGRATION STTP. 

170 M* 1 
L*L*1 
!PS=IP 
TS = T 

DO 180 1—1,6 
180 YRS( I ) -YP (I) 

CALL RESET! YZ,3) 

CALL RESFT! VU,3) 

CALL RESET! VR,3) 

CALL RESET! TEMPA, 3) 

CALL RESET ( RMOA , 3 ) 

CALL RESFT!V!STAR,3) 
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Q 

y 

u 

u 


I f 


il 

u 


[ 


u 

u 

D 

0 

0 

0 


NT !ME*NTI ME- l 
C 

C IF REQUIRED* WPITF OUTPUT. 

190 l F t ( A3S (YR (2 J ) *ABS( YR( 4) )*ABS! Y* ( 6) ) ).LT* l.OE-4) 50 TO 203 
IFINTIME.GT.Dl GO TO 103 

YR3=YR(3>*57. 29577 ^ 

WRITE! 6,2100) L»T,YR!i),YR(2>»YR3»YR(4)*YRi5l,YR(6l , RENOLD 

ntime»nstep-i 

IF(L.GT.l) NTIME*NSTEP 
GO TO 100 
200 CONTINUE 

YR ! 3)=YR!3)+FIRST+6.2831 B53/FL0A TCNB)#FLOAT| IP ASS) 
YR3=YR(3)*57. 29577 
WR! TE C 6*2110) 

WR IT E< 6,2100 ) L* T, YR!1 ) v YR (2 ) »YR3*YR(4), YR( 5) »YRC6 ) .RENOLD 
WRI TE ( 6*2120) M 
GO TO 50 


C 

C FORMAT STATEMENTS. 

C 

1010 FORMAT (1415) 

1020 F 3RMAT ( 8F10.6) 

1030 FORMAT ( 10A4) 

1040 FORMAT (E20.4*3F10.6) 

1050 FORMAT! I5*E10.2) 

2310 FORMAT ( 1H0,15HFL0W FIELD OAT A * // * 8X * 2HMX « 7X * 3HKMX » 8X« 2HNB, /, 


2011 FORMAT! 1H0* 9X, 5H3AMMA, 12 X * 34T I P * IOX * 5HRH0IP * 1 IX, 4HRGAS* / • C 4F15.6 ) ) 

2012 FORMAT ( IHO, IOX , 4H2 MAX* 13X,5HFIRST ,/,(2 c l5.6)) 

2013 F 3 RMAT ( H , 4X, 6HR! I , K) , ( 8F 1 5. 6) ) 

2014 FORMAT ( 1H , l OHTHE TA (I * K ) » ( 8F 1 5. 6 ) ) 

2015 FORMAT ( 1H ,4X * 5HV ( I ,K ) * t 8F 15 .6) ) 

2016 FORMATdH , 1 X , 9H3E T A ( I *K ) ♦ ! 8 F 1 5. 6 ) ) 

2030 FORMAT (1H1»18A4) 

2031 FORMAT! IHO, L3X ,6HVI SREF, 1 IX , 4HTREF, l IX, 4HTSUT, UX» 4HDGFC ,/ , 


1 'E 20.4,3F15.6) ) 

2332 FORMAT ! IHO, 15X*4H0IAP» 11X* 4HRH0P ,/»lE20,4»Fl5.6) ) 

2033 FORMAT ! IHO* 9X.5HYR! I ) » l OX *5HYR ( 2 ) » 10X»5HYR ! 3 ), 10X,5MVR ! 4) * 13X, 

1 5HYR (5) ,10X,5MYP ( 6), /,(6F15.6)) 

2040 FORMAT ( IHO ,4X*5MNSTEP, 14X* lHH*/» (I10.E15.2) ) 

2050 c 3RMAT(32H0SlMIl_ARITY PARAMETERS, DELTA = * F10.4,5X, 5HT AJ «»E12.4, 


1 5X * 6HRECR =,E12.4) 

2060 FORMAT t IHO ,6X,4HSTEP,9X* IHT,5X,5HYR(1) , 5X » 5HYR ( 2 ) * 5X, 5MY» ( 3 ) * 5 X* 

1 5HYR! 4) ,5X,5MYR( 5) *5X*5HYR ( 6) , 4X , 6MR ENOLO , /, 

2 ( I 11 *E10.2,F10.5,F10.2,F10.3,F10.2,F10.5,F10.2) ) 
c ORMAT ( H0*43HPART ICLE OUT OF BOUNDS AT FIRST POINT GIVEN) 

FORMAT ( 1 1 H BOUNCE OFF , 1 4 , 6X , F 1 0. 5 * l OX, F10. 3 , IOX * F 1 0. 5) 

FORMAT (H , 1 10 , El 3. 2* F 10 . 5, F 10. 2, F 10. 3, F 10. 2, F10.5, F10. 2 ,E20. 4 ) 
FORMAT ( IHO) 

FORMAT !3H0M=, 14) 

FORMAT ! LHl ) _ 

FORMAT! 24H0PARTI CLE ENTERS PASSAGE,! 5, 5X ,24HINLET ANGLE CORRECTED 


2070 

2383 

2100 

2110 

2120 

2130 

2140 


IT0,(F15.6)) 

STOP 

ENO 
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S JBROUT INE DLOCAI (R ,7, XMAX , MX, KMX , YP , 1 P» KP,KOUT | 
DIMENSION R< 21 i?l) ,2(21,21 ),YR<6 I 
NOUT = 0 

DO 20 1*1, MX 

IF(R<I , LI.LE.tfRim GO TO 30 
20 CONTINUE 
I P*MX 
N0UT=3 
RETURN 
30 I P=I 

IF< IP.NE.U GO TO 50 
NOUT* L 
RETURN 
50 CONTINUF 

DO 70 K*l,KMX 
X 1 =B I I P ,K ) *C OS I Z < IP,K) ) 

Yi*RUP,K J*SIN(Z(lP,Kn 
X2*R(IP-I,K»*C0S(Z(IP-l,K) ) 

Y2 = R( IP-1,K )*SINI Z UP-UKI) 

PX = YR 1 1 )*COS ( YR l 3 ) ) 

PY=YR( 1 >*SIN(YR 13)1 

l F ( ABS(Xi-X2J*LT.1.0E-12» GO TO 65 
A«{ YI-Y2) /(X1-X2) 

B =Y 1-A * XI 
YTEST=A*PX*B 
GO TO 66 

65 YTE ST* Y 1 

66 CONTINUE 

IF (PY.GE.YTESTi GO TO 80 
70 CONTINUE 
KP-KMX 
NOUT=A 
RETURN 
80 K P = K 

I c ( KP. NE« 1 ) GO TO 120 

N0UT*2 

RETURN 

120 IF ( YR15J.GT.0.0I GO TO 130 
NOUT *5 
RETURN 

130 I C (YR(5).LT.XMAXI RETURN 
NOUT * 6 
RETURN 
END 
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SUBROUT INF RESET ( A , I ) 

DIMENSION A ( 4) 

C 

c THIS SUBROUT I 'IF PESETS THE VALUES OF A VARIABLE SO THAT THE 

C BEST FSTIRA t E OF THE AVERAGE VALUE OF THE VARIABLE CAN BF USED IN 

C THE INTEGRATION STEP. 

C Alt! IS THE V4LUF OF A AT POINT 1 FOR THE INTEGRATION STE 3 . 

C A(2) IS THE AVERAGE VALUF OF A OVER THE INTEGRATION STEP. 

C A C 3 > IS THE VALUF OF A AT POINT 2 JSED IN THIS INTEGRATION STEP. 

Z A(4) IS THF VALUE D c A AT POINT 2 CALCULATED AFTER THE INTEGRATION* 

GO TO (10,20,30),! 

FOR 1*1, SET UP ARRAYS. 

10 DO 15 J =2 , 4 
15 A ( J ) =4 ( 1 ) 

RETURN 

FOR 1-2, RESET AVERAGE VALJE OF A, A(2)» AND REMEMBER THE LATEST 
VALUE OF A AT THE END OF THF STEP. 

20 A(2) = (A(4)+A( l) )/2.0 
A< 3)=A(4) 

RETURN 

C FOR 1=3, SYSTEM HAS CONVERGED. ESTIMATE THF AVERAGE VALUES 3Y 

C LINEARLY EXTENDING THE VALUES DETERMINED IN THE PREVIOUS POINTS. 

C 

30 A< 2)=1.5*A(4)-0.5*A( l) 

A ( 31=2.0*A(4)-A( 1) 

A ( l ) =A ( 4 } 

A( 4)=A( 3) 

RETURN 

END 


The function routine RUNGE has been removed from the 
published form of this report to protect the copyright 
of the authors of Reference 5 . 


n 


LEVrt 


r p s T T f ' 


DATE 


75045 


15 / 20/59 


2 I 


subrdjtinf re st co ( vn,vt, fta » 

DIMENSION CTA(2)»A(1U)»B(10) 

OAT A A/ 1.8190, 5. 1 1 71 ,-49. 2 529,131.03528,-174.4249, 1 17.3723 , 

L -24.47885,-16.7297, 1 1 . 2 300 , - 1 . 979996/ 

DATA 9 /5.7215, -41 . flflOR, 1 78.1685,-424.3832,572.7631,-405.6625, 
1 8 7. 142 8, 7 0.6 5 11, -5 0. 4987, 9. 6767/ 

C 

c TATA IN This SUBROUTINE CORRESPONDS TO VELOCITIES IN FT/SEC. 

MATERIAL TYPICAL OF ALUMINJM AND SILICON PARTICLES. 

C FTAtl) IS THE NORMAL RESTITUTION COEFFICIENT. 

C E T A < 2 I IS THI TANGENTIAL RESTITUTION COEFFICIENT. 

C 

H E T A =A T AN2 ( VN, VT ) 

V=SORT( V'nt*? fVT**? ) 

PH I ONE -V/750.JO 

PHI TWO= A I 1 ) * RF T A + A ( ? ) *8FTA**2+A( 3 )*BETA**3+A{4) *BETA**4 

1 +A( 5) *BFTA**5+A( 6 KBETA**6+A{ 7) *BETA**7*A ( 8)*BFTA**8 

2 ♦ A(9)*BFTA** : ?+AI 10)*RETA**10 
PHlaPHIONE*PHT TWO 

I F (PHI .GT.0.90) P H I =0. 90 

ETA{ 2) =1. 000-PHI 

PS IONF = 1.0000-EXP(-V/3 6.000» 

P S I TWO= R<l)*BFrA + B(2)*BETA»*2+B(3)*BETA**3 + B(4)*'3FTA**4 
1 +B< 5 )*9F T4**5 + 3 ( 6 )*BFT A**6 + B< 7) *BETA**7*RC 8 )*BET A**fl 

I +R<9)*RFTA**9+B( 10 )*RETA**IO 
P S I = PS I ONE * PSI TWO 
I F(PSI.GT. 0.900) P S I =0. 900 
E T A { D-l.OOO-PSI 
RETURN 
END 


SUBROUTINE RNJMRS ( RENOLD , OGFC , CD > 

I F { ABS(RENOLO).LT. I.0E-1Z) PFNOLO=l.OE-12 
IF ( RENOLD.LT.l .0 ) CO TO 26 

1= ((RENOLD. GF. I .0 ) . AND. ( RFNOLD.l T. 1.0E3H GO TO 27 
C 0= DGF C*0 .4 
R c TUR N 

26 CD=DGFC*(4. 5+24.0/RE NO ID) 

RETURN 

27 ARE=ALOG( RENQLD) 

CD = { 28. 5-24. 0*ARE+9.0682*APE**2-1.7713*ARE**3+0.1 718*ARE**4 
1 — 0.0065* AR E**5 ) *DGFC 

R F TURN 
END 
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SUBROUTINE PflLMEiP* 7. A.PP*ZP* ^ f KP, AP,DO» 

11 MENS l ON K(2l*?U»?t2l*2l )*A(2l»21)fO(21*Ont2) 
91 10 1=1*2 

i c { ABS(Z< 1 A*KP-1 ) — Z ( I A, KP ) ) .LT. l.OE-12) GO TO 5 
I f C ARSRMA IA,KP-in.LT.U0E-12) GO TO b 

AM*(R{IA»KP)~ft(IA, KP-1 i > / I Z < I A*K P |-7 (IA*KP-ll) 

R1 =u ( | A,KP~l ( I A* KP-l ) 

H^srRp+ZP/AM 

z a = < B2-B1 I* AM/ (AM* *2 + 1 .0) 

3A=P2-ZA/ AM 
GO TO 10 

5 RA=RP 

l A=Z< I A ,KP-l > 

GO TO 10 

6 RA=RII A, KP-l J 
7A-ZP 

10 D( I ) = SQRTU RA-RP)**2M/A-ZP>**2) 

DT = D( 1 ) «-0< ?) 

AA=(0( L ) * A ( IP.KP-i l*n(2l*AUP-l*KP-l» 1/OT 
AB=(0(i > * A ( IP»* 3 )«-0<2l*A( IP-l»KP) )/0T 
3C 20 K= l * 2 
H A =KP- K +1 

R3=(D( t)*R( JP-1*KA)+DC 2)*R(lf 1 ,KAl )/DT 

z; = (0< 1)*ZU P-1* KA)+D(2»^7HP*KAn/OT 

20 DO(KJ= SORT { (RP-RC 1 **2+( ZP-ZC 1**2 ) 

0 T = 00 < 1 )*00< 2) 

A»= (DDl U *AAO!t 2 ) *AB) / QT 


return 

END 


U 

11 

0 


74 


o r» o r» o o 


6 LEVEL 21 


POUNCE 


DATE 


75045 


15 / 20/59 


SUBROUTINE BOUNT E ( A » H , C , P » PP , H , I , E T A , NF I X , PB, VP 1 

0 1 MF NS ION A { 31 ,B(3)»C(31»P(3)»PP(3),VI3! *ABC3)fACI 3)#GI3#3l,0t5|, 
1 PB< 3 ) 

0 I ME NS I ON GS I 3 » 3 1 » V P ( 3 ) » UN ( 3 1 ,PN<3) 

DIMENSION ETA(2) 

DIMENSION PNP< 3) ,VN<4) ,VT 141 
C 

NF I X= 1 

on in 1=1,3 

vu ) = ( pp< l i-p< m/H 

AB ( I 1 =B I I ) - A ( I ) 

10 AC( I )=C( I )-A( I I 

VPP = SORT I V( l!**?*V(?)**2+V(3)**2 1 
C DETERMINE UNIT NORMAL TO SURFACE 
C 

UN (11= ABU )*ACm-AB<3 » * AC 1 2 I 
UN{2)=ABI3)*AC(11-AB(1 I* AC (3 1 
UN ( 3) = AB( l)*AC(2)~AB(2)*AC(l) 

CMAG= SORT I UNI i)**2HJNI 2 >**2»UN( 3 1**2! 

IF( ABSIC MAGI, 3T.1.0E- 121 GO TO 20 
NF IX=0 

WR!T C (6, 10001 

1000 c 3RM AT ( *»7H BOUNCE HAS ZERO UNIT VECTOR DESCRIBING SURFACE! 

RETURN 

20 DO 30 1=1 ,3 
30 UN ( I 1 = UN II ) /CM AG 

DETF-RMI NE THE INTERSECTION POINT, PB, OF THE PLANE AND TRAJECTORY. 

DETA=UN( 1 )*V<1 1**2 +UNI 2)*V(1 )*V(2)«-UN< 3)*V( l!*V(3) 

0< l)=UN(i)*A(l) *-UN (?1*A(2)«-JN(31*A(31 
D( 2J=V< 2)*°' 1 ) -VI 1)*P(2) 

D<3)=VI3)* 

DO 40 J= 1 » 3 
40 G(l,J)=UN(J) 

G( 2,1)= VC 2 1 
G< 2,2) =-VU) 

G(2, 31=0.0 
G ( 3 , 1 1 = V < 3 1 
G( 3,21=0.0 
G ( 3 , 3 ) *-V < 1 ) 

IF DETERMINANT EQUALS ZFRO, GO TO 90 

I F ( ABS(DETA).LE.1.0E-12) GO TO 90 
00 70 K«l,3 
DO 50 1=1,3 
DD 50 J=1 ,3 
50 GS ( l,J)=G(I,Jl 
DO 60 1=1,3 
60 GS( I , K 1 = D ( I 1 

PBIK) = GS (1,11* GSI2»2)*GS (3*3) *GS( i, 2 1 *GS ( 2 , 3)*GSf 3, l l+SS ( 1,3! 

I *GS I 2 ♦ t)*G5(3,2)“GS(3,ll*GS(2*2) *GS (1,3»-GSC3,2)*GSC2,3!*GS(I,1 1 
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2 -GSI3, 3J*GSf2fl»*r.5U.2l 
70 P9lK»aP8(K}/OFT4 
GO TO 100 

IF DETERMINANT EQJALS 7FRO, POINT P IS ON SURFACE, P EQUALS PR 

80 p*< n=p(i» 

0(41=01 II-UNI L)*P( 1 ) 
o( s) s vni*p(?i-vi2j*pn) 

OET A = -IJN< 2J*V<21-UN(3»*v(3) 

I c t ARSIOETA ).LT .1 . >F- 12 ) GO TO 65 
PR{21=(~n(4>*Vt2 )-P(5)*'JN(3) I /OFT A 
p 8C 3) = (iJN(2)*0(5)-V(3I*D(4)) /DETA 
GO TO 100 

85 I c ( ABSIVI 31). GT. 1.0F-12 ) GO TO 90 
P 8 ( 2 I = P ( 2 ) 

°8 ( 3) =A( 3) 

GO TO 100 
90 P B ( 2 ) = A ( 2 ) 

PB( 3) =P(3) 

100 CONTINUE 

0 PP = SQRT { (PP( 1I-P11I)**2HPP( 2)-P(2n**2+lPP(3l-P( 3) 1**21 
D P R = SQRTU PB{ 1 ) -P(lll **2MPB(2)-P(2 I )**2+t PB!3)-P( 3 M**2) 

OPPR= SORT ( ( PP< 1 >-PR( 1)» **2M PPI2I-PB<2) I ♦♦24 f PPI3 )-PBI3 J 1**21 
IF( CDPPB.LT.DPPI.AND.I DPR.LT .DPP1) GO TO 103 
N c I X = 2 
RETURN 
103 CONTINUE 

IF( 0P3.LT. ( 0,5*0PP) ) GO TD 180 

DETERMINE THE INTERSECTION POINT , PN, OF TH P SURFACE NORMAL THRU P 
IF DETERMINANT EQUALS ZFPO, GO TO 140 

OETA^JNI l >**3 + UNU ) *UN ( 2 ) * *2 +UN ( 1 )*UN< 3) **2 
I p { ABSIOETA I.LE. 1.06-12) GO TO 140 
D ( 2 ) = P I 1 )*UN 12 ) -P( 2 >*UN( 1 ) 

3(3) = Pm*UN(3»-P(3)*UN( 1) 

G( ?, 1 )= JN{ 2 ) 

G ( 2 ,2 ) =-UN( 1 ) 

G(2, 31=0.0 
G(3.H= JN( 3 ) 

G< 3 » ? ) =0. 0 
G ( 3 » 3 ) =-UN ( 1 ) 

DO 130 K=1.3 
DO 110 1*1,3 
00 110 J= 1 » 3 
110 GSU f J ) =G( I, J) 

DO 120 1*1,3 
; 120 GS( I , K I = D I I J 

PN(K)=GS(l»n*GS(2 t 2)*G$<3,3M“GSI 1,2»*GSC 2, 3)*CS(3, 1 » *GS4 1*3) 

1 *G${2, t)*GS( 3,2) -GSt 3,1 I*GS( 2,2) *G$ ( 1,31 -GS< 3,2 »*GSI 2,31 *GS<1,1> 
, | 2 -GS(3,31*GS(2,ll*GSU,2 ) 

L-I 130 PN<K)*PN(K)/DETA 


oooo o<»r>oc>oo 
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? 1 
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DHT? * 75045 


15 / 20/59 


S3 TO 160 
140 PN( i I = P t 1 > 

0 ( 4 ) =D ( l ) 

D( 5)=UN(3)*P(2)-UN(2)*P( 3) 

OFT A = -UN( 2 ) **?-JN ( 3 ) **2 
PN(2)= I -D I 41 ♦UMC 2 »-0(5 )*UN(3 ) J/DETA 
PN( 3) = (UN<2)*D{5J-UN(3)*OI4H/DETA 
160 CONTINUE 

r 

C DETERMINE PORTION 3F T IMF SCO ME NT USED TO TRAVEL FROM P TO P8. 

C 

DTI ME*OPB/VPP 

[F< DTIME.LT. H) S3 TO 163 

WRITF(6,1010) 

1010 P 3 RMAT ( 24H D T I ME IS OR EAT ER THAN H) 

N OUT* J 
RETURN 

EXTENT LINE PN-PB TMF PROPER DISTANCE TO FIND PNP. 

THFN EXTENT A LINE NflRMAL TO THE SURFACE FROM PNP TO GET THE POINT 
AFTER BOUNCE, PP. 

FIND VELOCITY COORDINATES BAS FD ON PP , PB AND TIMF REMAINING IN 
SESMFNT. 

163 DO 165 1=1,3 

vrm = (PBi n-PNi n i/dttmf 
165 VN( I)-(PMm-PM) )/0T IMF 

V T ( 4 ) * SORT! VTI1)*»2+VT(2 )**2+VT ( 3 )**2 ) 

VN ( 4 ) = S3RT( VNC 1 } ** 2+VN ( 2 ) **2 + VNC 3 ) **2 ) 

CALL RFSTC0(VN(4) ,VT(4 >,E T A> 

00 170 1=1,3 

PNP(I)=PB(I ) + ETA(2 )*VT ( I )*(H-DTIMFJ 
PP( I I = PNP ( I ) -FT A ( 1 )*VN( T ) * ( H-DT I ME J 
170 VP( I)=(PP( U-PRC I) I / (H-DT T ME) 

T = T+H 
RETURN 

IF POINT P LIES ON SURFACE, USE POINT PP TO DETERMINE AFTER 
BOUNCE STATE. 

180 CONTINUE 

DE TA = UN( 1 )**3*JN( 1 )*UN(2)**2+UN(l )*UN(3)**2 
I=( ARS(DETA).LE.l.0F-l2 ) GO TO 220 
D( 2) = PP< 1 ) *UN( 2 ) -PP ( 2 ) ’•‘UN ( 1) 

D ( 3)=»P( 1)*UN(3)-PP(3)*UNC1) 

G( 2,1)= UN ( 2 ) 

G ( 2 , 2 ) =-UN ( 1 ) 

0 ( 2 , 3 ) = 0.0 

G( 3, 1 1 =UN( 3 ) 

5(3*2) =0.0 
G( 3,3) =-UN( 1 ) 

DO 210 K= 1 , 3 
DO 190 1*1,3 
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DO 193 J=l,3 

190 r.s(!tJi<r,( f « j ) 

00 200 1=1,3 

200 c»sn.K)* 9 <n .. 

PN«K|=GS< 1,1 >*GS< 2,2)*GS< 3,1) *GS( l , 2 I *GS( 2 , 3 l*GS< 3,1 1 ^-GSI t »3I 

1 *GS< 2,1 I *GS( 3 ,2 > ~GS < 3, l ) * GS < 2 , 2 I *GS < 1, 31-GSC 3, 21*GSC 2, ?»*GSI 1 ,1 » 

2 -GS(3,3>*GS(2,n*GS!l,2» 

210 PN(K)=PN(K)/DETA 

30 TO 240 
220 PN (1) =PP( 1 ) 

D( 4l = Df l ) 

0(5) X UN(?)*PP(2)“UN(2)*PP(3) 

DETA*-UN( 2)*UM<2)-UN<3)*UN(3) 

PN(2) X (-0(4)*MN<2)-D<5 )*UN ( 3 ) )/DF.TA 
PN(3I*<UN(2>*D(5)-UN(3)*0(4) ) /DE T A 
240 CONTINUE 


Z DETERMINE PORTION OF TIME SEGMENT REMAINING FOR TRAVF1 FROM P6 TO PP« 
C 

OTIME=H-DPB/VPP 
I F(GTIME.GT.U0E-12) GO TO 245 
WRI rE(6,l020) 

1020 FORMAT (21H DTI ME LESS THAN ZERO) 

Nr I X = Q 

RETURN 

C 

C DETERMINE THE PROPER DISTANCE ALONG PN-PB TO FIND PNP. 

C THEN EXTENT A LINE NORMAL TO THE SURFACE FROM PNP TO GET THE POINT 
C AFTER BOUNCE, PP. 

C FIND VELOCITY COORDINATES BASED ON PP, PB, AND THE TIM e H. 

r 

245 DO 250 1=1,3 

Vrm*(PN< I >-PB( III/ DT IMF 
250 VN( II*(PPU)-PN( ID/DTIME 

V T ( 4 ) * SORT ( VT ( l ) **2*VT ( 2 ) **2*VT ( 3 )*+2 I 
VN ( 4 ) ~ SORT (VN( l)**2+VN( 2)**2*VN(3)**2) 

CALL RESTC0(VN(4) ,VT(4),ETA) 

DO 260 1=1,3 

PNP( I )=PB( I )*ETA(2 )*VT ( I ) *DT I ME 
PP( I )=PNP( I )-ETA(i )*VN(I >*DT!MF 
260 VP (I)= (PP(I)-PB( I n/OT IME 
T = T«-H 
RETURN 
END 


Example 

The example case presented here used the ft., lbm. , second 
system of units. The gas flow conditions correspond to inlet 
stagnation conditions of standard sea level air. In the output, 
the R, THETA, V, and BETA arrays have been combined onto one 
page. The nozzle blades lie between radii of 0.274 ft., and 
0.321 ft. The velocities are expressed in terms of V/V cr , as 
can be seen from the output array. 

The particle used in the example haB a specific gravity of 
3 and a diameter of approximately 24 microns. Initially, the 
particle has a velocity that is equal to one half the gas velocity. 
The output for the particle indicates that the particle enters 
passage 26, but the angular position has been corrected to 
correspond to the proper position in the passage for which the 
data on velocity and velocity direction apply. 

The trajectory data illustrates a bounce off the pressure 
surface of the blade, in thiB case the iteration scheme failed 
to converge in 100 steps. This can be corrected by making the 
time step smaller. 

The following pages contain a computer code sheet with the 
data arranged in the proper columns, and the output for this 
example . 
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10 9 29 

MVM TIP PNC IP 

1.40CC10C 91*. 6999*1 0.C748C0 1115 

9ISRFF TBEF T SIT 

0.10I-0F-04 492.000(100 19£. 199991 

TVk* FIRST 

S.SK400 12 .410000 
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00 
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4799BC 
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RII.Kl 
RII.Kl 
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R t 1. K 1 
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0.202*00 

0.214COQ 


0.121Q0C 
0.3190CC 
0.316 OCC 
C.317GCC 
0.3COOCO 
0.304CCC 
0.767SGC 
C.2510CC 
0.2625CC 
0.2740CC 


C. 321000 
C. 3 19000 
t. 316000 
C. 2 12300 
C.3CBOOO 
C. 30000 
<.297500 
C. 251000 
<.262500 
C. 274000 


C.321COO 
C.319C0C 
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0.312CCC 
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T+FTAt I.KI 
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C. 1*4000 
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0.3‘ICCO 
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0.174COC 

VIT.KI 

0.418000 

0.3360CC 

C. 255000 
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VII. Kl 

- 0.459000 

0 .44 Rf! CC 
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- 0.276CCC 

VIT.KI 

0.604000 

0.582000 

C. 465000 

0.404000 

VI I.KI 

O.o’reQtib 

0.634000 

C. 634000 

0.S81CCC 

VIT.KI 

- 0.7 R6000 

0.766000 

C. 766000 

0.786GC0 


MTA( I.KI 
66TAII.KI 
RFTAII.Kl 
RITA f T.KI 
FFTAI1.KI 
66 T A I I.KI 
6FTAIT.K I 
6FTAI I.KI 
MT4II.MI 
HTAIt.FI 


-17.000000 
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(1.304000 
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0.291000 
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0.274CC0 
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68.500000 
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ritp RKP 

0.7740F-64 187.194947 

v*m »#•?» t»im Y»i4i »R«5i »Ml 

0.170400 -107.F19946 3?e. 469411 2C5. 949997 0.C 13200 0.0 
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ROTOR ~ Particles in the Rotor 

This program calculates the trajectory of a particle in a 
radial inflow turbine rotor. The gas flow solution is based on 
the quasi-orthogonal method , of Reference 9. The program that 
was given in Reference 9 is modified to provide required output 
on data cards. To avoid confusion, a listing of the modified 
program is included here as Part A of the Program Listing. 

Method 

The flow diagram of the program is given in Figure 23. The 
results of the fluid solutions are stored in arrays that specify 
the gas velocity vectors at the intersection points of the quasi- 
orthogonals and streamlines. With the fluid solution arrays input, 
the program goes to a RUNGE-KUTTA technique to integrate the three- 
dimensional equations of motion of the particle. 

The integration of the equations of motion over one time in- 
crement, is first carried out using the velocity and the gas pro- 
perties at point A to determine the new particle location B. The 
program then calls ALOCAT and POLATE to determine the gas velocity 
components at A corrected: gas velocity components are cal- 
culated from with the mean values at A and B^ The program then 

integrates the equations of motion again starting from A to find 
the corrected particle location Bj* ALOCAT and POLATE are called 
again to give the gas velocity components at B 2 , and these velocity 
components are compared to the corresponding values at B^, if the 
difference is large, the previous iteration is repeated. Once the 
iteration has converged, the trajectory to point B has been determined 
and this point is used as the initial point for the next time in- 
crement . 

The subroutine ALOCAT is used to determine the subscripts of 
the grid points that surround the particle. Figure 15 shows a 
typical particle within a set of quasi-orthogonals and streamlines. 
The subroutine returns the values IP and KP that locate the particle 
within a particular grid. The subroutine also returns JP, which is 
the next higher subscript in the XT and THTA arrays. If the particle 
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is no longer within the boundaries of the flow field * the sub— 
routine returns NOUT which is a code specifying where the particle 
has gone out of the flow field. 

The subroutine POLATE interpolates the value of any variable 
whose values are known at four grid points surrounding the 
particle. Referring to Figure 15, the subroutine first calculates 
the distances D(l) and D(2), and based on these distances, de- 
termines a weighted average of the variable at two locations on 
adjacent streamlines. These values are AA and AB. Then the 
subroutine determines DD(1) and DD(2) and uses these distances to 
get the weighted average of AA and AB at the position occupied 
by the particle. 

The subroutine RBCH considers the particles that rebound from 
the casing or the hub. It is called whenever the particle position 
B is outside the casing or the huUT boundaries. The subroutine 
returns to the previous position, and linearly extends the traject- 
ory over one time increment, with the bounce occurring at some 
portion of the time segment. The subroutines writes "BOUNCE OFF 
SURFACE (NOUT) ..." and prints the location of the bounce. 

The subroutine RBBB considers the case where the particle 
rebounds from the blade surfaces. The procedure is the same as 
RBCH. 

The subroutine RNUMBR is used to determine the drag coeffic- 
ients based on a curve fit of the drag versus Reynolds Number data. 
Equations 20 are used, and Figure 3 demonstrates the fit of these 
equations to data. 

The subroutine RUNGE uses a fourth order method to integrate 
a system of simultaneous first order' ordinary differential equations 
across one time step. Reference 5 explains this subroutine in 
more detail. 

Input 

The input cards take the following format. Units consistent 
with the quasi-orthogonal program as given ir. Reference 9 must 
be used. 
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The first group of input cards are the punched output cards 
from the qua si -orthogonal program of Reference 9, These cards 
are punched in the correct format when the code BCDP in the quasi- 
orthogonal program is set equal to 2. An example of the input data 
is included with the example case presented after the program listing. 

Following these, the data sets corresponding to the particle 
trajectories are 


TITLE 

VISREF, TREF, TSUT, DGFC 

RHOP, D1AP, H, TMAX, ETA-N, ETA-T 

YR(I) , I o 1, 6 

NSTEP 


(18A4) 

(E20.5, 3F10.3) 

(F10.2, 3E10.4, 2F10.3) 
(6F10.3) 

CIS) 


Multiple sets of this group may be stacked together for cases of 

more than one particle. The input variables are defined below. 

TITLE - The first card is reproduced at the top of the first 

page of output for each particle. Any statement in 
columns 2 through 72 will be reproduced. 

VISRFF - Reference viscosity corresponding to TREF. Used in 
Sutherland's Law. (lbm/ft sec). 

TREF - Reference temperature, corresponding to VISREF. Used 
in Sutherland's Law. (°R) . 

TSUT - Constant used in Sutherland's Law. (198. 6°R). 

DGFC - Drag factor. The drag coefficient based on Reynold's 

Number is multiplied by DGFC. Except in very special 
cases, this should be 1.0. 

3 

RHOP - Particle density. {lbm/ft ). 

DIAP - Particle diameter. (Ft). 

H - Time increment used in the integration process. (Sec). 

TMAX - Program stops if time exceeds TMAX. (Sec) . 

ETA-N - Normal restitution coefficients. 

ETA-T - Tangential restitution coefficients. 

YR (1) - Initial radial position of the particle. (Ft). 

YR(2) - Initial radial velocity component of the particle. 

(Ft/Sec) . 


86 



YR(3) - Initial angular position of the particle. (Radians). 

YR (4 ) - Initial angular velocity of the particle. (Sec ). 

YR ( 5 ) - Initial axial velocity of the particle. (Ft). 

YR (6) - Initial axial velocity of the particle. (Ft/Sec). 

NSTEP - The program prints out trajectory information every 
NSTEP time increments. 


Output 

An example listing of typical output is included after the 
program listing. This program output can be divided into several 

groups . 

Output Group A, 

This set of output is a reprint of some of the data that is 
transferred from the quasi-orthogonal solution. 


Output Group B. 

This set of output is concerned with the particle trajectory. 
The first part is an echo check of the data cards corresponding to 
a particle. Such data checks are useful in correcting key punch 
mistakes on the input cards. 

After initializing the variables, the program calculates and 
prints several similarity parameters that are useful in relating 
this particle to other particles having similar trajectories. The 
quantities that are printed are explained below. 


STEP 

T 

YR (1) ... YR(6) 
ABS 

REYNOLD 


- A count of each of the integration steps . 

- Time. (Sec) . / 

- Position and velocity components of the particle 

with respect to the rotor. 

- The angular position of the particle with 
respect to the absolute reference frame. 

- Reynolds dumber of the particle at this location. 


When the. particle leaves either the exit or inlet of the flow 
field, the program prints the last data information and includes the 
last value of STEP and M. The last M is the count of the number of 
iterations required for the solution of particle location to converge. 
If M is greater than 100, the program truncates prematurely. 
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USE OF ARBITRARY QUA SI -ORTHOGONAL S FOR 
DISTRIBUTION IN THE MERIDIONAL PLANE OF 
THEODORE KATSAMS NASA TECHNICAL NOTE 


CALCULATING FLOW 
A TURBOMACHINE. 
D-2546 DEC. 1964 


COMMON SRW , . . 

DIMENSION AL(2l,21) , BE TA I 21 ,21) , C AL( 21 ,21 ) ,CBETA 21,21), 

lCURV(2l,21),DN(2i,21).PRS(2i,2t) ,R(21,21),Z(2i,21) ,SM(2i*21) . 

2 SA (21,21) , SB (21,21) , SC (21, 21) *SD(21,21)» SAL (21,21 ) ,SBETA(21,21 )* 
3TN(2i,2l),TT(2l,21) ,WA(2l,21) » WTR (21,21) 

DIMENSION AB(21) ,AC(21 )• AD(21),BA(21 ) .DELBTAI 21 ) »D*OM( 21 ) » 
10TDR(21)»DTDZ(21) ,DWMDM( 21 )»DWTDM(21 ) »RH ( 21 ) ,RS ( 2 1 ) , ZH( 2 1 ) , ZS( 21 ) , 
2THTA(2i),WTFL(21 ),XR(21) , XT! 2 1 ) , XZ ( 2 1 ) 

INTEGER RUNO, TYPE, BCDP, SRW 

RUNO =0 ^ 

10 READ(5,1010) MX,KMX,MR,MZ,W,WT , XN, GAM , AR 

ITNO = 1 

1 

RUNO 

MX,KMX,MR,MZ,W,WT,XN,GAM,AR 

TYPE, BCDP, SRW, NULL, TEMP, ALM,RHO, TOLER, PLOSS 
TYPE, BCDP, SRW, NULL, TEMP, ALM,RHO, TOLER, PLOSS 

MTHTA ,NPRT , I TER ,NULL, SFACT , ZSPL IT , BET IN,RB,CORF AC 
MTHTA , NPRT , I TER, NULL , SFACT , Z SPLIT, BET IN, RB , CORF AC 


WTOLER 
WTOLER 

(ZS( I ) ,1=1 »MX) 
(ZS(I 1,1=1, MX) 
( ZH ( I ),I=i,MX) 
(ZH( I ) , 1 =1 ,MX) 
(RSI I ) ,1 = 1 ,MX) 
(RSI I 1*1*1 , MX) 
( RH ( I 1,1=1 ,MX) 
(RHI I 1 ,1 "1 , MX) 


RUNO * RUNO ♦ 

WR I TE (6 , 1020 ) 

WRITE (6,1010) 

READI5, 1010) 

WRITE (6 ,1010) 

REAOIS, 1010) 

WRITF (6, 1010 ) 

RE AD( 5 » 101 1 ) 

WRITE (6, 1011) 

READ(5, 1030 ) 

WRI TE ( 6 , 1030 ) 

REAOIS, 1030) 

WRI TE ( 6 ,1030 ) 

READ! 5, 1030) 

WRITE ( 6 , 1030 ) 

READ! 5, 1030) 

WRITE! 6,1030) 

DO 20 I = 1, MX 
ZS( I )=ZS( I ) /12. 

ZH( I )*ZH( I )/12. 

RS( 1 1 =R3( 11/12. 

20 RH(I )=RH( 11/12. 

I F ( TYPE.NE.O ) GO TO 40 , . k 

WA(l»i)=WT/RHO/(ZS( 1 l-ZHI 1 ) 1/3.14/ (RSI l )*RH( 1 ) ) 

DO 30 I * 1 ,MX 

ONI I ,KMX ) = SQRT ( I ZS I I )-ZH( I ) )**2+( RSI I )‘ RHI I 1 1**2) 
DO 30 K * 1 , KMX 

DN( I ,K ) = FLOAT I K- 1 ) /F LOAT I KMX-l ) TDN ( I ,KMX ) 

WA(I,K) = WA I l , 1 ) 

Z( I ,K)»DN( I ,K)/ON( I ,KMX)*(2S I I )-ZH( I 1 )*ZH( I ) 

30 R( I»K)=CN(I*K)/DN( 1,KMX)0(RSI I)-RHCI))*RH(I) 

GO TO 50 

40 IF! TYPE,Nt.l) GO TO 145 
DO 45 1=1, MX 

READ! 5,7010) ( DN( I ,K) ,K*1 ,KMX) 

READI5, 7010) ( WA ( I ,K) , K*1 ,KMX) 


! 
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READI5* 7010) ( ZU »K) »K«1 tKMXl 

READ! 5*70101 1 R( I *K) *K*i *KMX> 

45 CONTINUE 

WRITE (6, 1040) 

50 READ (5*1030) ITHTAII) »l*i*MTHTA) 
WRITE I 6* 1030) CTHTA ( I ) »I*1*MTHTA) 
READ <5*1030)<XT(I ),I«i#MTHTA) 
WRITE ( 6» 1030) (XT(I)*I*l *MTHTA) 

DO 60 K*1 *MR 

READ I5.1030MTNI I *KI tI»ltHZI 
60 WRITE (6.1030MTNU.K) *I«l,MZ) 
READ (5.1030)(XZ( X).I*ltMZ) 

WRITE (6*1030) (XZ( I )*I*l*MZ) 

READ (5»1030)(XR(1 ).I*l*MR) 

WRITE (6*1030) (XR( U.I*l*MR) 

END OF INPUT STATEMENTS. 


SCALING - CHANGE INCHES TO FEET AND PSI TO LB/SQ.FT* 
INITIALIZE* CALCULATE CONSTANTS. 

70 DO 90 K * 1 » MR 
DO 80 I - i.MZ 
80 TN(I,X> - TNI I »K ) / 12.0 
90 XR(K) - XRIKI/12.0 
DO 100 I * l.MZ 

ioo xzcn « xzm/12.0 

DO 110 K = 1*KMX 
110 SM ( 1 * K I * 0.0 
BAIl) * 0.0 
DO 120 K * 2. KMX 

120 BA(K)*FL0AT(K-1)*WT/FLQAT(KMX-1) 

DO 130 I * 1* MX 
130 ONI I « 1 1 * 0.0 

DO 140 I * l*MTHTA 
140 XT (II * XT (I)/ 12.0 
R00T-SQRTI2.0) 

145 CONTINUE 

DO 146 1*1 * MX 
DO 146 K*l * KMX 

146 WTR 1 1 *K)=0.0 
TOLER * TOLER/ 12.0 
RB * RB/12.0 
ZSPLIT * ZSPLIT/12.0 
PLOSS * PLOSS* 144.0 

Cl * SQRTC GAM*AR*TEMP) 

WRITE (6.1050) Cl 
KMXM1 * KMX-l 
CP*AR*GAM/( GAM-1. ) 

EXPON * 1.0/ (GAM-1.0) 

BETIN * -BETIN/57. 29577 
RINLET * ( R$( l ) ♦RHC 1 ) ) /2.0 
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CEF = SlN(BETIN)/CQS(BETiN)/R INLET/ (RlNLET-RB 1**2 
ERROR = 100000.0 

BEGINNING OF LOOP FOR ITERATIONS* 

150 IF ( ITER.EO.O I WRITE (6, 10601 ITNO 
IF( ITER.EQ.O) WRITEI6. 1070) 

ERR0R1 » ERROR 
ERROR - 0*0 

START OF CALCULATIONS OF PARAMETERS. 


DO 230 K * i.KMX 
DO 160 I * l.MX 
ABII) - tZII*K)-RlI»K) I/ROOT 
160 AC ( I ) = (Z! I.KJ+RI I ,K) J/ROOT 

CALL SPLINEIAB.AC.MX.ALI i.K) ,CURV(1»K) ) 


DO 170 I * l.MX 

CURVII.K) * CURVI I.K )/ (l.*AL I I ,K ) **2 )**1 . 5 
ALUtK) * ATANIALI I ,K) 1-0.785398 
CALII »K ) * COSIALI I .K) ) 

170 SALII.K) - S 1 N ( AL ( I.K) ) 

00 180 I * 2 .MX 

180 SM!l,K)=SM( I-1,K)*SGRT(( Z 1 1 , K )-Z (1-1 ,K ) ) **2 + ( R( I .K)-R(I-l.K) )**2 
190 CALL SPLOER(XT(i)»THTA(l)*MTHTA*Z(l.K)»MX»DTDZ(i)) 

DO 220 I * 1 » MX 


CALL LININTIZ(ItK) ,R(I ,K ) . XZ . XR. TN.21 .21 . T > 
IFIR(I.K).LE.RB) GO TO 200 
DTDRI I )*CEF*lRIl .K)-RB)**2 


) 


GO TO 210 
200 DTDRI I ) * 0.0 
210 TO = R ( I * K ) *DTDR ( I ) 

TP * R( 1 ,K)*DTDZ< I ) 

TTU.K) = T*SQRT(lc«-TP*TP) 

BETA! I »K ) = ATAN(TP*CAL( I,KUTQ*SAL( I.K) I 
SBETAI I *K)=SIN(BETA(I»K) ) 

CBETAI I ,K )*COS(BETA(I ,K) ) 

SA ( I,K)*CBETAU,K )**2*CAL( I.K )*CURV( I.K ) -SBETAI I ,K (I.K) 

1 ♦SALt I ,K)*CBETA( I ,K )*SBETA! I »K)*DTDR( I ) 

SCI I.K) *-SAL( I .K )*CBETA{ I ,K)**2*CURV( I ,K ) ♦ SAL 1 1 .K) *CBET£ (I.K) 
1-SBETAI I,K)*DTDZ( I ) 

ABII)= WA 1 1 • K) *CBETA (I.K) 

220 ACII)=HAU.K)*SBETA(I,K) 

CALL SPLINE ISM (I.K) .AB.MX.DWMDM.AD) 

CALL SPLINE! SM (I.K) ,AC .MX.DWTDM. AD) 

IF! I ITER.LE.O) .AND. (MOD! K-l, NPRT ) .EQ.O) ) WR I TE (6. 1080) K 
DO 230 1 = 1 .MX 

SB! I ,K)*SAL( I ,K)*CBETA( I ,K)*CWMDM( I ) -2* *W* SBETAI I.K) +-DTPR ( I ) 
l*R(I ,K)*CBETA( I.K)*(DWTDM( I)*2.*WPSAL( I.K) ) 

SD I I.K) *CAL( l,K)*CBETA( I ,K )*DWMDMi I )«-DTDZ( I )*R( I »K) *CBETA( I . K ) 
1*1 DWTDM (I )+2.*W*SAL( I.K) ) 

IFI! ITER. GT.O). OR. (MODIK-l. NPRT). NE.O)) GO TO 230 
A * AL ! I.K )*57*29577 
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B * SM< I,K)*12. 

E * TTCI,K)*12. 

G * BETAC I ,K)*57.29577 

WRITE (6, 1090) AfCURVC I »K ) ,B, G,E, SAC I ,K) , SBC I ,K) , SCC ,K) ,SOC I.K) 
230 CONTINUE 

END OF LOOP - PARAMETER CALCULATION* 


CALCULATE BLADE SURFACE VELOCITIES. CAFTER CONVERGENCE.) 

IF C ITER.NE.O) GO TO 260 
DO 250 K * 1,KMX 

CALL SPLINE(SMC1»K),TTC1 ,K I ,MX,DEL8TA, AC) 

A*XN 

DO 240 I * 1 » MX 

240 AB ( I )*C RC I *K)*W*- WAC I ,K)*SBETAC I, K) )* ( 6. 283186*R < I * K )/A-TTC I,K) ) 
CALL SPLINE C SMC 1 , K ) ,AB , MXtDRDM, AC ) 

IFCSFACT.LE.1.0) GO TO 245 
A * SFACT*XN 
DO 244 I * 1,MX 

244 ABC I )=CRC I,K)*W+WAC I, K )*SBETAC I,K) )* (6.263186*RC I t K)/A-TTC I,K) ) 
CALL SPLINE C SMC 1 j X ) * AB *MX* AD r AC) 

245 DO 250 I * l, MX 
BETAD*BETACI*K)-DELBTACI i/2, 

B6TAT = BETAD+DELBTACI ) 

COSBD * COSCBETAD) 

COSBT * COSCBETAT) 

IFC2C I*K).LT.ZSPLIT) ORDMCI) * ADCI) 

WTRC I * K ) “COSBO^COS BT / I COSBD* COSBT ) *( 2.*W AC I ,K)/COSBD*R C I »K)»W 
1*C BETAD-BETAT) /CBETACI ,K)**2-*DR0MC I ) ) 

250 CONTINUE 

END OF BLAOE SURFACE VELOCITY CALCULATIONS. 


START CALCULATION OF WEIGHT FLOW VS* DISTANCE FROM HUB. 

260 DO 370 1 * l, MX 
IND = l 

DO 270 K * 1 * KMX 
270 AC CK)=ONC I,K) 

GO TO 290 

280 WAC I ? 1 ) *0.5*WA ( I » 1 ) 

290 DO 300 K * 2, KMX 
J * K-i 

HR * RC I *K)-PC I ♦ J) 

HZ * ZC I » K)-Z< 1 1 J) 

WAS* WAC I»J)*C1. + SA( !,J )*HR*SC ( I » J )*HZ) ♦SBC I » J )*HR* SD( I » J )*HZ 
WASS*WAC It J)+WAS*(SA( I »K )*HR+SC( I »K)*HZ)+SBC I #K)*HR-*-SDC I »K)*HZ 
300 WAC ItK)*C WAS+WASS ) /2. 

310 00 340 K ■ It KMX 

T1P*1.-CWA( I tK )**2*2.*W* ALM-C W*R C I «K) )**2)/2./CP/T EMP 
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IF(TIP.LT.O.O) GO TO 280 

TPP1P*1.-12.*W*ALM~ |W*RI I » K ) )**2) /2. /CP/ TEMP 

D£NSTY-TlP**EXPON*RHO- IT iP/TPPIP )**EXPON*PLOSS/AR/TPPU , /T£MP 
1*32. 17* SMI I ,K) /SMI MX, K) 

PRSII «K)»CENSTY*AR*TIP*TEMP/ 32 . 17 / 144 . 

IFIZSt I )._E.ZH{ 1 )) GO TO 320 

PSI-ATANI IRSII )-«Hl I )> /IZSt I l-ZHl 1 1 ) )-1.5708 

GO TO 330 

320 PSI-ATANIIZHI I)-ZSI 1))/IRSII 1-RHlI))) 

330 WTHRU * WAII,K)*fiJETAII *KI *COSIPSI-ALI I »K) ) 

A * XN 

IFIZIItKI.LT.Z SPLIT) A * SFACT*XN 
C- 6.28 3 l 86*R 11»K)-A*TT(I»K) 

340 AD(K)=DENSTY*WTHRU»C 

CALL I NTGRL I AC 1 1 )» ADI 1 ) , KMX, WTFL ID) 

IFIABSIWT-WTFLIKMX) l.LE.WTOLER) GO TO 350 
CALL CONTINI WAII • l ) , WT FL I KMX ) , IND, I , WT I 
I F I IND.NE.6 ) GO TO 290 
350 CALL SPLINTIWTFL,AC.KMX,BA,KMX,AB) 

DO 360 K * 1 * KMX 
DELTA*ABSIABIK)-DNI I,K)> 

ON 1 1 »K ) = 1 l.-CORFAC )*DNI I *K )*CORF AC*AB( K) 

360 I FI DEL T A. GT. ERROR) ERROR * DELTA 
370 CONTINUE 

END OF LOOP - WEIGHT FLOW CALCULATION. 


CALCULATE STREAMLINE COORDINATES FOR NEXT ITERATION. 


3S0 


390 


400 

410 


DO 380 K = 2 » KMX Ml 
00 380 I = ltMX 

Z( I»K)=DNl I,K)/DNI I ,KMX)*IZSI I )-ZH|I ) )+ZHI I ) 

R< I ,K)-DN< I »K) /ONI I »KMX)*IRS! I )-RHl l ) )*RHl I ) 

IFI ( ERROR.GE • ERROR 1 )»0R. I ERROR. L£. TOLER) ) ITER-ITER-1 
I F I IT2R.GT .0 ) GO TO 410 
WRITE I 6 » 1 100 ) 

DO 400 K - 1 »KMXf NPRT 

WRITE 16,1080) X 

DO 390 I * l, MX 

ABIU * IZII ,KJ-R< I.X) )/ROOT 

AC(I) * (Z(I,K)+RI I»K) )/ROOT 

CALL SPLINE I AB , AC * MX, AH 1,K) ,CURVll,K) ) 

DO 400 I * 1 » MX 

CURV!I,K)»CURVII,K)/I1.*ALII ,K)**2)**1.5 
A-ONI I ,K)*12. 

B-ZI I ,K)*12. 

D»RII.K)*12. 

WRITE 16, 1110) A,B,D,WAI I ,K ), PRSI I«K) ,WTRI I »K) ,CURV I I ,K) 
WRITE 16,1130) 

A -ERROR* 12. 

WRITE 16,1120) ITNO *A 
ITNO - ITN0*1 
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IF t ITER.GE.O) GO TO 150 
IFIBCDP.NE.il GO TO 415 
DO 414 I-ltMX 

PUNCH 7010# (CN( I #K) , K=i #KMX 1 
PUNCH 7010. IWAI I ,K) ,K=1,KMX) 

PUNCH 7010# 1 ZU #KJ ,K=1,KMX) 

PUNCH 7010. ( R I I ,K 1 »K*1 #KMX ) 

414 CONTINUE 

415 I F ( BCDP.NE .2 ) GO TO 10 
C 

C 

C CARO SET FOR READING AND WRITING BETWEEN QUAS I -ORTHOGONAL PROGRAM 
C AND TRAJECTORIES PROGRAM. WRITE SET. 

C 

PUNCH 7000# MX # KMX # MTHTA 
PUNCH 7010# GAM# TEMP #RHO#AR# SFACT 
PUNCH 7010. ZSPLIT,W#XN,ALM# PLOSS 
DO 7777 1=1, MX 

PUNCH 7010. ' R( I ,K) ,K=1,KMX1 
PUNCH 7010, ! Z (I ,K) .K-i.KMX) 

PUNCH 7010. I WA( I »K) . K*i .KMX) 

DO 777 K=1,KMX 

777 ALII ,K)*ATANUL! I ,K 11-0.7853982 
PUNCH 7010. I AL ( I »K1 »K*1 #KMX) 

PUNCH 7010, CBETAU ,K) ,K=l,KMX) 

PUNCH 7010, < SMI I ,K1 ,K*1 ,KMX) 

7777 CONTINUE 

PUNCH 7010, IT HT All), 1*1, MTHT A 1 
PUNCH 7010, I XTI I) ,I=1,MTHTA1 
7000 FORMAT I 71 101 
7010 FORMAT I 5E14.6) 

C 

420 GO TO 10 

C 

C END OF CALCULATION OF NEXT STREAMLINE COORDINATES. 

C 

C FORMAT STATEMENTS. 

C 

1010 FORMAT (4I5,5F10.4) 

1011 FORMAT ( F 10. 5 1 

1020 FORMAT UH1 ,7HRUN NO., I 3, 10X, 23HINPUT DATA CARD LISTINGI 
1030 FORMAT I 7 F10. 41 

1040 FORMAT! 1H ,10X,25H BCD CARDS FOR DN,WA,Z,R. 1 

1050 FORMAT! 1H1,4X,31HST AG. SPEED OF SOUND AT INLET *,F9.21 

1060 FORMAT (1H0,//,5X,13HITER AT ION NO., 13) 

1070 FORMAT! 1H , 6X , 2HAL , 12X »2HRC , 12X, 2HSM , 1ZX , 4HBETA , 10X , 2HTT , 12X , 2HSA , 

1 12X,2HSB,12X,2HSC , 12X.2HSD) 

1080 FGRMATI1H , 2X, 10HSTREAML I NE , I 3) 

1090 FORMAT I9F14.6) 

1100 FORMAT! 1H1 ,9X,2HDN, 18X ,1HZ ,19X, 1HR, 19X ,2HWA , 18X, 3HPRS , 16X, 3HWTR , 

1 I4X.2HRC) 

11.0 ORMATUH «6F 19. 6,F 18. 6) 

1120 FORMAT! 1H ,4X, 13HI TERATION NO. , 1 3 , 10X, 24HMAX. STREAMLINE CHANGE =, 

1 FlO.ib) 

1130 FORMAT ! 1H1 ) 

C 

C END OF FORMAT STATEMENTS. 

END 
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INTPGFM RUNGF 

HfMFNSICN P(2l»2l)»Z(21,2l)»WA(21»2l),AL(21»2l),BFTA(21*2l)» 

1 TTI 21 ,21) ,THTA<21 1 ,XT(2l ) 

— OIMFNS1CN STATF! 18 ) ,YR(6) ,YRS(6) ,WR(4) ,WU(4 > ,WZ(4) ,PH0A(4) , 

1 TFMPA(4| ,VISTAP(4) • FTA ( 2 1 » OD (2 I * AP (2 ), AZ(2 ) 

DIMENSION SM(2l,21) , FR ( 6 ) , RA I 2) , Z A( 2 ) , THE TA ( ? ) 
r 

C RFA D QUAS (-ORTHOGONAL RESULTS - WRITE SIGNIFICANT PARTS. 

C 

CALL }AREAn(MX*KMX,MTMTA 1 
WRITFIb, 40401 MX »KMX*MTHT A 
CALL ROPE AD < GAMMA, TEMP »R HO ) 

CALI BORF AD! RG AS » SF ACT * ZSPL IT 1 
CALL RDMFAD! W,XN,ALM) 

CALL OOPE A0( PLOSS » ANIIL L * 8NULI 1 

WP I TF ( 6 *4050 1 GAMMA* TEMP *RHO,RGAS » SF ACT, ZSPL IT,W 
WR I TF ( 6 *4 090 ) XN » A LM »PLOSS 
CALL RCRFAO(R) 

CALL RCRFA01ZI 
CALL HCPFADfWA) 

CALL BCPFAP(AL) 

CALL ACRE A0( RF TA 1 
CALL RCPFAn(SM) 

CALL BBPFAD! THT A 1 
CALL -)0PF AO ( XT 1 
W» ITF(6, 40701 
00 10 1=1, MX 

10 WRITFI6, 40601 R( I , L 1 ,Z (I . 11 , R (I * KMX) ,Z (I . KMX 1 
WP I TF(6 ,50501 (XT( I 1*1=1* MTHTA1 
WR I TF( 6*50401 (THT A If) ,t=l*MTHTAl 
C 

C P F AO P AP T I CL F OATA 

C. 

605 P c AD( 5*3000) (STATE! I) *1 = 1*18) 

WP ! TF(6 *4000 1 (STATF! I > , 1 = 1, 18) 

RF A0( 5 » 3010) VISPFF ,TREF ,TSUT ,OGFC. 
WPITF(6,4010)VISRFF,TREF,TSUT,OGFC 
RE AD (5, 3020) RHOP , 0 1 AP, H , TM AX, F T A 1 1 ),FTA(2) 

WR I TF( 6,4020) RHOP * 0 1 AP, H , TM AX , E T A ( 1 1 , FT A ( 2 1 
RFAn(5,3O30) ( YR ( I 1 , 1 = 1,6) 

WRITE! 6 *4030) !YR!!),!=1,61 
PFAn(f»,bOlO) NSTFP 
W«T TF(6,5020) NS T P P 

r 

C INITIALIZE. 

.. f 

il T =0.0 

L = 0 

WR I TF ( 6,5 000) L,T, 1YP! I) ,1=1*6) 

FXPCN= 1.0/ (GAMMA -1.0) 

CP = GAMM A*PGAS/ ( GAMM A-*l .0) 

RP AP T=H I AP/2 .0 
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MAIN 


OATF = 75 l «2 


16/5 


0 

u 

0 

0 



i 

i 

I 

i 


l 

i 


L 


M=l 

N T I-vpsNSTPP 
T S = T 

C 

C nPTM'Uwr AIR VFLOC I T I FS ANO PPnPFPTTFS AT PARTICIF LOCATION. 

c sft up to start tpacf, initialize. 

r. 

CALL ALCCAT(R,Z,MX»KMX,YR f THTA.XT ,MTHTA f XN , Z SPLIT, I P f JP , KP , NOUT ) 
IFINOUT.EQ.O) GO TO 606 
WP ITri6 t 4080> 

GO TO 605 
C 

e>06 CALL POLATF(», Z.WA,YR( 11 , YRI 51 ,IP # KP f WAP # nOJ 

CALL Pt)LATF(«,Z»RFTA,YP( L 1 »Y R ( 5 1 , I P , «P f HFTAP , 00 » 

CALL n nLATr(o,7. t AL»YR< 1 1 , YR( 5 1 , I P , KP f ALPP,nn » 

CALL PQl ATF(R,Z,SM,YM 1 1 , YR( 5 1 f I P « KP , SMP * DO ) 

WF ( 1)=HAP*CCS1 BF TAP IMS INI ALP P> 

WIJI 1»=WAP*SIN(BFTAP) 

WZm=WAP*COS(RFTAP»*COS( ALPP1 

SMT = (nn{ L )*SM( MX » K P) +D D ( 2 1 *S M ( MX » K P“ 1 ) 1/tODI l )+00( 2 1 1 
Tf P=l.Q-( WAP**2*2.*W*ALM-( w*YR( 11 ) **2 ) /2 . 0/C P/TFMP 
TPPTP=1.0-(?.*W*ALM-(W*YP( 11 1 **2 1 /2 . C/CP / TFMp 

PMOA(l) =TTP**FXPON*RHO-( T I P/ T PPI P » ** FXPON*PLCSS/ RG AS/TPP IP /TFM P 
l *32.17*S**P/SMT 
T^MPAI l )=T!P*TFMP 

VI STAR ( 1 )=VI SPFF*( ( TFMPAI l 1/TPFF ) ** 1 .5) # I TRFF+TSUT ) /( TEMPA ( 1 1 
l 4-TSUT1 

C 

C INITIALIZE FOP FIRST STFP. 

C 

HO 610 T=l f 4 
WR(I)=WR(1) 
wuii i - w»j< 1 1 
WZ(l)=WZ(ll 
RHQAI I 1-RHOAI l 1 
TPMOa( i )=TFMPA{ 1 ) 

610 VI STAR l I ) =VI STAR ( 1 I 

00 620 I - 1 ♦ N 
620 YRSII )=YR( I) 

C . 

C INTTGSATF using pungf-kutta METHOO 
r 

62 5 VOirP^SQPTI I WP ( 2 )— YR <2 1 1 **2+ I WUI 2 1 -■ YR I 1 1 *YR I A H **2 
l ♦IWZI2)“YR(6I)**2) 

R F NOLO= PH 0 A ( 2 1 *VD I FF*D I AP/VI STAR ( 2 1 

1 ALL RNUV HP I RENUL D » CGFC* CO 1 
BCCJN=PHrA(2 )*CO/PHOP/RPART/2.33333 

630 I F ( R UNGF (N»YR»FR»T tH 1 • NE • 1 1 GO TO 640 
FR ( 1 } = YRI2 1 

FR I 2 1 - Y P I l )*YR<4)**2+2.0+YR( l)+U*YR(4)+YP(l)*fc**2 
l +RCC)N*VniFF*I WR< 21-YRI 2) 1 
FC ( 3 1 =YP ( 4 ) 

FP (41 =-2 • 0* YR I 2 1 * YR (41/YRI l }-Z.O*W*YR I 2 1 /YR I 11 




T 
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rv n 
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MA IN 
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1 *RCON*VDirF* (WU< 2)-YR< l)*YR<4||/YPm 
PM 5)=YR<6) 

es {6)=BCGN*V0fFF*(WZC2l—YR(6) ) 

GO TO 630 
640 CONTINUE 
r 

C f> FT F o M I NF fF WALL TNTFRAC TT ON OCCUPPFO. 

C 

CALL ALCCATI R, Z»MX,KMX,YR,THTA,XT,MTHTA,XN,ZSPLI T, IP,JP,KP»NOUT) 
IFINUUT.FO.O) GO TO 700 
I F ( NOIJT »FC. 1 ) GO TO 760 
TF<M0UT.F0.31 HO TO 760 
on 645 1 = 1,6 
645 Y« ( !I=Y«S( I ) 

T=TS 

I F ( NOUT .NF *2 ) GU TO 650 

« a( i )=ri ip,i > 

CMiil=MlP-i.l) 

za( n*z(ip t i> 

Z A < 2 1 =Z I IP-l ,1 » 

CALL PRCHtYR,PA».ZA , T ,H ,F T A , NCUT J 

GO TH 750 

65 0 TF< .'iOUT.NF.4l GO TO 66 0 
RA<1)=°( !P,KMX) 

RA<2)=R< I P-1, KMX) 

ZA( 1) = ZUP,KMX) 

Z A ( 2 ) = Z { IP-L » KMX 1 

CALL P8C.H( YR f RA,ZAf T ,H »CT A , NOUT I 

GO TO 750 

660 THF TA ( l ) = THT A ( JP ) 

T« P T A ( 2 ) = THT A( J°-l ) 

Z A { 1)=XT( JP) 

Z A { 2 ) =XTJ JP- 1 ) 

f *= ( YP(5).GE.ZSPL!TI OTHFT-3. 1415927/ XN 
ff< Y« ( 5). I T.ZSPLIT) PTHF T= 1.5 707963 /XN 
CALL °RBR(YR,THFTA»ZAfT,HfFTA* NOUT » OTMFT ) 

G* / TO 7 50 


OETEMINF AIR VAUJFS AT NEW LOCATION 

700 CALL POLATC ( R » Z » WA , YR < U t YR ( 5 ) , ! P* KP , WAP ,00) 

CAIL PCLATF<R,Z»PFT A ,YR< l) ,YR< 5 I , I P , KP , BFTAP ,00) 

CALL. POLATF ( R » Z » AL ,YR < W , Y*( 5 ) , I P, KP, ALPP ,00) 

CALL P0LATF(R,Z,SM ♦ YR ( L) , Y« ( 5 ) , ! P , KP , SM P ,0H) 

WR (4)=WAP*rOS(f}FTAP)*SIN(ALPP) 

WtJ(4) = WAP*SIN<HFTAP) 

WZ(4)=WAP*C0S«RFTAP )*COS( ALPP) 

S'ATs ( nn( 1 )*SM( MX ,KP | fOO( 2) MX, KP- l ) )/<D0< U+OOI2) ) 

T ! P= l ,0-( WAP**2 4-2.*W*ALM-{ W*YR<1> » **2 ) IZ . 0/C P /T^VP 
TPP!P=l.u-t?.*W*ALM-(W*YP< 1) )**? )/2.C/CP/TFPP 

PH(JA(4) =T I P**FXPDN*RHO-( T I P/ T PPI P I ** FXPGM PI CSS/ RG AS/ 1 PP IP / TEMP 
l *32. 17*SMP/SMT 
TT^PA(4 ) = TIP*TTMP 
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MA IN 
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V! STAS (4)*VISPFF*( ( TFMPAI4)/ 1PFF )**l.5>*( TRFF+TSUT I / ( T fMi»A ( 4 I 
1 *TSUT) 
r 

C T c R T Aftf VA1UFS USFf> t IF INCORR FCT » P FSF T INTFGP AT TON V ALUF 5 ANO GO 
C 6?5. IF tr»»FCT, r>0 TO 750. 
r 

IH( ARSI WP (4)-W»< 3 I I .IT. L .0F-4).ANn. I A PS ( wU< 4 I -*UI 3 I) .LT.1.0F-41 
I .ANO. ( ARSI WZ(4)-WZ<3)> .LT.l.OF-4)) GO TO 750 
HR(?) = UvF<4)+WR< I) 1/2.0 
WU(2t = (WU(4H>WU<2>l/2.0 
t»l <2> = (WZ{4H-WZI U 1/2.0 
WR(3>=WR{4) 

VUI 3)=WU{4 I 
■-U ( 3)=WZ( 5 > 

s > 4 - ; A ( 2 I = I PH* JA ( 4 I +P HO A I I } >>2*0 

PA( 2 ) = ( TFNPA(A) + TFyPA( 1)1 /2.0 
VI STARi2I=(VTSTAR|4)+VISTAR(2) 1/2.0 
VI ST A3 (2) = < VI STAP (4 I +V 1ST API IJJ/2.0 
T-TS 

o-~ no im.n 

7 1 G VMII = Y c S I I ) 

I^(N.GT.LOO) GO to ttCO 

'* = M *■ l 
GO TO 625 
r, 

r rOMPLFTF I NT FOR AT I OF) STFP. IF PEOUIPFn, WP f TF OUTPUT. GO TO 625 

r 

750 M=l 
L = L + 1 
TS = T 

n:i 760 i=i , n 
76C Y° $ I I I ■= VP I II 

W<M2I = l.5*WB{4|-0.5*WRm \> 

W* { 3I=2.0*WP(4)-WP ( II 
WP I 1 1 = WR { 4 I 
WP I 4 1 = W P I 3 ) 

wU( 21 = l.5*WU(4 1-0.5 *WU(U 
wtl( 3)=2.0*WUI4)-WUl II 
WUI L I -VMM A I 
WU(4) = WtJ<3> 

WZ (2)M.5*WZI4)-0.5*WZ<1 I 
WZC3)=?.0*WZ(4I-WZ< II 
W/( 1 1 =WZ ( 4 ) 

WZI<*) = W7l 3) 

RHO A < 2 ) = l . 5* PHO A < 4 I -0. 5* PHOA 1 1 ) 

RHi 1 A ( 3 I =2 , 0*RH0 A ( 4 1— °MOA I l ) 

°Hu A ( l I =PHOA (4 I 
PHnA(4)=PHnA(3I 

T r MPA(2)=l .5*TP4PAI4)-0.5*TFMPA| l» 

TFAPA(3)=2.0»TFMPA(4|-TFMPA( 1 ) 

TPM PA ( l ) =TFMPA { 4 ) 

TFWPAI4 I*TFMPAI 3 I 

VTST&P I 21 =1.5* VIST AR(4)-Q.5*VIST AR ( l I 


f 


MA IN 


OATP 


75U? 


lfa/5‘. 


IV G 1 c vn 


2 l 


VIST A« ! 3) =2.0* VI ST AR<'t)-VISTAP(l» 

VI STAR. ! l)=VTSTAR<41 
VISTAR<4>=VISTAP<3> 

MTTmp = MI MT-1 

7«G TF( (NOUT.FO.IJ .OP. ( NCHJT . EQ. 3 ) .DP , ( T . GT .TMAX M GO TD 800 
iF(NTiMF.r-T.o) nn rn 6 25 
W w I TF ( b ,2 050 ) L,T, ( VR( n f I =1 ,6) ,RFNGLO 

MIVCsM^TEp-l 

IFIl.OT.l) \>TI Mf_=NSTPP 
G~> TO 628 
8 JO GiJNTINUF 

rfp I T c ( 6,2050) L,T. ( YM II ,T*l f 6lfKFN0Ln 

>f» :f< 6,20o0 ) 1-1, L 

80S rO'V.TIA»UP 

GO T t. * 6 0?) 

2050 Format (I h , I to *F15.6,7F15. 5) 

2 Oo C Fi-ov a.k iHO ,2110) 

30 00 FijHKAT ( 1HA4I 

2010 FGPyAT(F20.4»3F10.4) 

302 0 r,:cM A f ( TI 0.4, F 10.3 t F 10.3 ,3F10.41 
3030 FuPMAT (6 HO. 51 
4000 F(jP*.AT< IHl, 18A4) 

4010 FOR^AT( 1ft 0, 1 JX.6HVI SP FF , 1 1 X , 4HTRF F , 1 IX , 4HT Su i » 1 1 X , 4F0GFC t / , 
l ( F 2 .) • 4 » ? F l 5 • 4 ) ) 

4 02 0 f to vat( L'^0 , 10X , 4HPMQP f l IX ,4H0I AP , 14X » 1HM , 1 1 X ,4HTMAX , 10X ,5HETA-N, 
1 10X.5HFTA-T, /,(F15.4,2F15.3,3FL5.4)) 

403 0 FORMAT! IHO, 9X,5HYR< 1 > , 10X, 5HYM 2 > , 10X.5HYP ! 3 ) , 10X , 5HYB (4 > , 10X, 
1 5MYW< 5) ,10X,5HYP(6),/,(bF15.5) > 

4040 FORMAT ( IHl ,44H IMPOP TANT DATA FRUM QUA S I -CP ThCGUNAL PROGRAM , // , 

1 8X,2HMX,7X,3HKMX,5X,5HMTHTA,/,(3I10) 1 

4050 FORMAT! IHC, OX , 5HG A MMA , 1 1 X ,4HTFKP , 12 X , 3HP HO , 1 1 X , 4HR G AS , 10X , 
l 5 H S F A 0 T , 4X,6HZSPLIT,14X,1HW,/,!7F15.4)) 

4060 FORMAT! 1H , 2 F L 5 . 6 , 5 X , 2 F l 5 . 6 ) 

4070 FORMAT ( IHO, 15HHUB CCHRDl NA7FS,27X, 15HTIP CnCKDINATF S, / ,7X , IMP , 

L 14X,1HZ,L9X,IHR,14X,IHZ) 

4080 FORMAT 146HCPAR TIFLF DJT QF PASSAGE AT FIRST PCINT GIVFN.) 

4 09 0 Ft j RM AT ( l HO, 12X ,?HXN , 12 X, 3HAL M , 10 X , 5H PL OS 5 , / , 

1 ( 3 F t *5 .4 ) ) 

50)0 FORMAT! IHO, 5 X,4HSTFP,14X , 1HT ,10X ,5HYR( 1J , 10X ,5HVR ( 2 ) , 10X.5HYR ! 3 V 
L L0X.5HYP14) , 10X, 5HYR !5), 10X , 5HYR ! 6 ) , 9X * 6HRFNQL0 f 
1 /,! T 11,F15.6,6F15.5M 

SOI 0 FORMAT ( IS ) 

5020 HfPyAT! 17H0PRINT DATA Fv F» Y , I 7 , 2 X, 7H ST F *» ! S » » 

5 04 C c 0 D *'• A T { 1 2 HOT HF T A A P P AY , / , l 6F 1 5 . 5 ) ) 

5050 FORMAT ( 9H0 X T ARP AY , / , ( 6F l 5 .5 )) 
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2 1 


SIMP'MJT INF ALuC AT( H , 2 * *X * KMX » VR , THT A , X T , Ml A « XN»ZST , T «> » J P »K P * NQUT 
PI MFNS! ON F( 21 *?l ) ,Z(21»2nfPC(2l)f/C<2l)»V 0 C 6 ) » THT A C ? I l»XT(2ll 
MTOT A=MT A 
/ S^LT T = 7ST 
N MIT = 0 
nn 20 J = i » MX 

IF( AH*S( 7( I , 1I-Z(! ,KMXn.LT. l.OF-12) in TO 1C 
A = < H ( I f 1 )-M ! ,KMXJ) / ( Z (I t U-Z t l »KMX1) 

{ I „ l I-A*Z t T i 1 » 

c?Tf 5T=A*VP(5> + R 

[F (o TFST.tr .YW ( 1) ) GO TO 30 

r.-t TO 20 

10 IF(ZU « 1) .0K.YM5M CO TO 30 
?0 C>UTIOU r 
30 IP=T 

I F ( TP.NF.l I GO TO AO 
MOOT “ l 
ru°N 

AO IF (TP. ME. NX I GO TO 50 

I c (Z< MX tl ) .01 .Y<5 (5 1 ) GC TO 50 

MOOTs i 

pcruPM 
50 rOMTIMUT 

00 70 K=l,KMX 

1 F ( APS ( £ ( I P»K )~Z ( IP- 1» KH ,LT . L.OF- 12 ) GO TC feO 
A = IH!P-l l KI-q|P f K||/(ZIIP-l,K|-?UP l K|| 

3=P ( f P » K ) -A*Z( IP»K) 
oTrsTsA^YPtSI+B 

TF(Y»t D.LP.PTFST) GL TO BO 

Go TP 70 

00 ?F(7( IP,*' ).or.Y» (5 )) GL TP BO 
70 f.MlMUF 

ao kp-k 

|P| KP.NP. I ) GO TO 90 

MOOT = 2 

kCTlIR'-l 

GO IF(K°.Nir«KMX) GO Tn 120 

T F( £i!$( Z< I p .KP )-l ( I P-1 »KPI) . LT. 1 .OF-12 ) GO TP 110 
IFtYh(l).LT.RTFST) GO TO 120 
NmiT=A 
a F TURN 

110 IF(YB(5».LF.ZUP,KP n NOUT = A 

RCfU^N 

120 CilMT I MIJF 

0,j 130 J= l » MTHT A 
TF ( XT( J).GF. YR ( >)) GC; TO IAO 
130 ri ; NTIMU F 
IAO J“ = J 

A=( THTA( JP-U-THTAI JP) ) /( XT( JP-1 1-XT ( JPM 
csTHTA{JP)—A*XT(JP I 
TM TH = YP ( 5 I 

IFCY.M 5 1.GF.ZSPLI T) OTHT A- 3. 1 A1 592 7/XM 
I f ( YP ( 5 ). I T .ZSPL TT I DT HT A= l . 5707963/ XN 
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ALUCAT 


HATT 
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2 t 

Trt r T 1 = 0 THY A + THT A 
TH c T2=— 0T HT A *TH TP 


TP 1 Y8( 3 l.LT.THPTl ) 

G<> 

TO 

150 

•MiJUTs'i 




OPTUPN 




150 IP (yo ( 3 ).GT.THFT2 ) 

GO 

TO 

160 


Mil'ITsr* 
l'»0 urrut:^ 

Fi\in 


SU-OMJTINt: POL A T r ( R , z , A , »P , l p , I P , K P, AP, PD ) 
fMMFNSKJN P (21,21) ,Z(2 1, 21), A( 21,21) .PC 2) ,D0| 2) 
no 10 1=1,2 
T A = IP+i-t 

I p ( ABS(Z ( IA ,KP-1 )-Z( I A, KP) ) .LT. I .OF-12) GO 70 5 
TM AHSIPI IA,KP)-P ( IA,KP-D) .LT.L. OP-12) GO TO 6 
*M = (P{ I A,KP)-R( I A, KP-l ))/(Z(lA,Kt>)-7 ( IA.KP-1 ) ) 
c 'l*«(IA,KP-l ) — AM *Z ( IA,KP-l) 

=PP+ZP/ AM 

ZA = ( 82-81 )*AM/(AM**24-1„0) 

H A=r»2-ZA/ AM 

GO TO 10 

5 PA=PT 

ZA = 7.{ I A, KP-l ) 
go to io 

6 «A=P( l A, KP-l ) 

7 A = ZP 

10 n(T»= SOPT( ( RA— PP)**?+*ZA— Z D )**2) 

0T*0( 1)4-0(21 

AA = ( Of l |#A( TP, KP-i ) 4-0(2) *A ( I P — 1 , KP— 1 ) )/0T 
A8=(D( 1)*A< IP,KP)+0(2)*A( IP-L,KP) )/0T 
n-0 20 K = 1 , ? 

KA=KP-K+l 

°C=(0( l)*P( TP, KA) 4-0(2 )*R( I P-l,KA> )/0T 
ZC = (0(l)*Z( IP,KA)4-0(2)*Z( IP-1,KA) j/ot 
20 00(K)= SOPT( (RP-RC )**24-( ZP-ZC )*#Z ) 
nr =r)0( i )+nn( 2 ) 

AP = ( 00 ( 1 ) * A A f-nn ( 2 ) * AH > /DT 

*? c TURN 

rrgn 
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SIIHPHIJTTNF SPLINT < X ,Y ,N , / .MAX , Y I NT ) 

'’I ,ir NS I MN A(30 ) ,Y( 50), SI 50), A(50 ) , R< 50) ,CI 50) ,F< 50) , W(50) , SR( 50) , 
ir.( 60) , F*< 50) ,Z(50) , YINTI 50 ) 

COMMON Q 
TNTrGPH 0 
10 f=2,N 
S( I ) = X < I )-X< 1-1 ) 

10 C^MINUr 
NO=\-l 

''M 2 0 J - 2 »N0 
MIhSI U/6.0 
*M T ) - ( S ( T ) + S ( ! ♦ I ) ) / 3.0 
CIM^t l + l)/b.O 

2 0 f< ! > = ( Y t I ♦ I ) -Y ( I l)/S(I *• L l - 1 Y I f)-Y(T-l) )/SI I ) 

MN)=-.6 
l ) = l .0 
« ( N ) = i . 0 
0 ( l ) =- . 5 
r ( l ) = ).0 
*= ( v ) * 0 . 0 
'{11=3(1) 

V-llll-CIll/WUI 
0< 11 = 0.0 
on 30 I «2 , N 

’*( I )=3{ I ) — A ( r ) ^Sf3 f 1-1) 

:.5( IhCll )/W( ! ) 

30 r 7lIIMF(!)-AI!|*f,(M||/H{|| 
f’(N)=0(M) 

on 40 I =2 ,N 

rf = M 4- 1 — I 

4 0 *. < k ) = o ( (- ) - S 0 ( K ) * F M ( K> I ) 

O'! 9 0 I=l,MfX 
K = 2 

IF(7I!)*XI1)| 60,50,70 
50 YINTU )=Y (1) 

OQ TO 90 

60 !F(7( I ) .LT.U. I^Xt l )-. 1*X(2) ) )WRI TF (fc,IOOO)Z(I) 

00 TU 35 

LOGO F’iPWAT (I7H OUT OF RANGE Z *E10.6) 

65 flZII) .GT.< UI*XIN )-.l*X(N-l)) ) WRITE (6,iaOO)Z(I) 

K=N 

C. 1 TO 8 5 

70 I £ ( 7 ( I ) -X ( K ) ) 35,75,80 
76 YT !H I ) = Y I K ) 
tv '• Tn 90 
rl tJ K = K *■ 1 

TF(K-.N) 70, 70,65 

35 VI.NT(I) = F.'KK-n*(X(K|-Z(II)**3/6./S(K) + F«{K)*(ZU)-X(K-l))**j/6, 
l/SIK) M Y(K)/S(K)-FM<K.)*S( K >/6 . ) * < Z II) -X I K- 1 ) ) ♦ ( Y ( K - 1 ) /S ( K I -FM( K - l ) 
2*S(K)/6«)*tX(K)-Z(I)) 

90 CONTI NUF 

”XA = .VAXO(N,MAX) 

IF(0. u Q.l6) W»!Tr-(6, 1010) N , MAX , ( X ( I ),V( I ) , Z ( I ) , Y INT II) , I * l ,MXA) 


m 


r- c r v r l 


UBCH 


DATF 


7518^ 


Lfc/55/Sl 


2 I 

SO>WilUTlNF «f*cm YR » P » Z * T »H»FT A . N'JUT ) 

"T Mr \S I t’N YP«6l t fU2).Z<2),FTA<?) 

!-( AAS(Z(Z)-Z(1 M .1 T.l.ar -12 I Gil Tn 100 
I c < AJS(M2)-Ml)I.LT.l.0 r -l2l GO TO 200 
s^(p(2i-Rm>/i7i;i-zmi 
im AnsiYp(6n .lf*i.of-i2) go rr 10 

! r < ArtS(YP(?l I .LP. I.O r -U) GLi TO 20 
pj)=Y«(?)/YP(6) 

ZA=(?{ U*SM>YMi)*P« + YR( l)-R ( 1) »/( SM-PM) 

wa=s^(zp-zu) )*p< 1 1 

GO TH 30 
10 7 H = Y R ( 5 ) 

PA = SM* ( 7R-Z( L ))*'•' U ) 
r, j tp 3 c 
2 0 *R = YM 1) 

ZJ*(P1-P( l))/SM + /( 1 ) 

GO TO 3 C 

10O fP( ABS(YP(2)» .LT.l . OP-12) GC» TO 1 10 
P'1 = Y>< (2)/Y»(6) 

«-^pv,*<z< n-yp(bn+Y»M i» 

ZG=7.( I ) 

GO TO 30 
l l J R <=YP( l ) 

) 

G ; TO 3 0 

T r ( '‘GSIYRIAM .IT. L.OF-m GO 70 250 
P««YF < 2 )/YP ( 6 ) 

MsR(l| 

ZA= ( pp. YR m )/P*!+YP (5) 

GO Tn tsO 
250 » 5 = R< l ) 

7 A = y *•’ ( 5 ) 

30 ORPs 50RT( (RR-YP( 1) )#*2+(ZH-YR(5M*»2) 

V v = SJRTtYP (2)*^?+YR(6 )**2 ) 

oj *M-TRP/ VM 

T,3 = YB ( 3 H-YR KJ *0rtP/VM 

YR I T H6» 1000 ) NDUT.pR, Tfl.ZR 

gamma* ATAwitH(2i-pan,(zi2}-z(m) - 1.5707963 

AL PHA= 3. 1415 92 7+ ATAN2<YR<2) , YR<6)» 

VN=VM* f.OS (GAMMA- A L PHA J 
VJP = VM* SINIGAMMA- ALPHA) 

V^P=-Vt\l*F7A( n 
VTR D -VTP*FTA(2 ) 

Y u < <t) =YP m*FTA( 2 I 

\M P= SORT ( Vf* P**?+VTRP**2 ) 

RCTA= ATAf ?{ i/TRP, — VNP) 

YP(2)= VRP* SIN(GAMMA+RFTA> 

YR<6)= VRP* fT S<GAMMA+BFTA ) 

YR < 1 ) =P R+ Y D { 2 I *HT 
Y<< 3)*Tts+YR(*}*nT 
YR ( 5) = Z R + Y P ( 6 ) * 0 T 
T s T +-M 
prTUP'l 
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IV 0 L r vn 2 1 


RRB* 


OATF = 751 82 


16/55/51 


S'l^nur IKF PROMY* ,TH«=T, Z, T,H,FTA,NUIJT ,nTHFT ) 
^1-fHSir.Y YP < M » THF T ( 2 ) » Z ( 2 ) ,FTA(2) 

F*l«r».sii N Yf 2) 

!F(NUJT.Kr.5) G(i T H *• 

» 4 1=1,2 

A Y(I)*CThFT( I M-nTHFT)*YPt l) 

TF(*M IT. NT, 6) GO TP 7 

f> 1 = 1,2 

6 YC !) = ( TH«=T( r 1 -DTMrT ) *Y ft ( l ) 

7 fONTTMjr 

IF(AtiS(7.<2)-Z( m.LT.l.0F-l2i GO TO 10 
TMARS(Y(2)-Y(ll).LT.i.OF-l2) GO TO 20 
S v * = (Y(2)-Y(l ) I /(Z(2 )-Z< 1 ) ) 

TF ( A R S ( Y f (*♦)). LT.I.OF-12 I GO TO 30 
tF(A^S(YR<6 n .LT. l.OF-12) GO TO 40 
PM=Ytt( 4)*YR ( l | /YR ( 6 ) 

ZR=(YR (2 ) *YR ( i )-PM*yp< $|-Y ( 1 )*SM*Z( 1) )/( SM-PM) 
YR=SM*( 7R~Z( l|l+Y(l! 

0 1 T.i IOC 

10 I^T ARS( Y^(4 n.LT.l .0F-L2 J GO TO lb 
Z-W( l ) 

PM = Y»(M*YPt 1 1 / YR < 6 ) 

YP*PM*(7( 1)-Y«fb) ) +YR ( ,,^YR(3) 

GO TO 100 
lt> 7 R = Z ( i I 

yr = y<m i)*yp< :u 

I GO TO LOO 

2 0 IF (4BS(YR(M). IT. l.OF-12) GO TO 2 5 
YR=Y( 1 ) 

0 1 = Y o ( 4) *YR ( 1 ) / YP ( 6 ) 

ZG=( YH-YR ( l )*YP (3 )+PK*YR( 5 ) ) /PM 

GO TO 100 
| ?6 Y 3= Y ( 1 ) 

1 7^Y«<5) 

Gi.l Ti.1 ICO 

i 30 YR=Y» ( t ) * YR ( 3) 

\ z-)s{YR-Ym«-sM*zcin/SM 

GO TP 100 

l 40 ZR^lb) 

YR = S*=M ZR-Z< n)+Y(t) 

100 CONTI NUr 

, MP«SO*T( ( YR-YO ( i ) A VP I 3 ) ) * *2 ♦ ( ZB- YR ( 5 ) )**2) 

VT* = V)PT( l YR ( 4 )# YR ( 1 ) ) **2 ♦ YP (61**2) 
nr i=oop/vpo 
n t -sH-OT 1 
T3=YR/YP( 1) 

PH = YP { 2 ) * PT 1 +YP ( 1 ) 
rtlR f Tf (6,1000) NOUT,RP,TR,ZR 

GAMMA* AT AN2 ( ( V ( 2 ) -Y ( l )) • ( Z( 2 )-Z ( 1)) ) -l. 5707963 

AL PHA*3 • 14 1 59'i A T A K 2 ( ( Y P ( 1 I * YR ( 4 ) ) , YP ( 6 ) ) 

VM = VRR* f TS ( GAMMA— ALPHA) 

VTk = V3R* S IMGAM4A- ALPHA ) 

V-j3 = -VN*FTA( L) 
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V G LFvFL Zi RBBB OATF * 75182 16/55/51 

VTRP*VTR*FTAI2I 
YP. C2)*YP(2)*ETAC2) 

VBRP=SQRT C VNP**2*VTRP**2 ) 

BETA* ATAN2CVTRP,-VNP1 

YRC4)= VBBP* S INI GAMMA+BFTA) /RB 

YRC6|» VBBP* COS (GAMMA*BFTA) 

Ytt( l)»RB»YPC2)*OT 
Y R C 3 1 *T B+YR < 61 *0T 
YR«5»*ZB*YP(6l*nT 
T=T«-H ' 

RETURN 

IOOO FORMAT < 2BH PARTICLF BOUNCER OFF SURFACE* 4 5* 2X* 16H< RB*TB, ZB » APE (* 

1 3F15.5,IHM 

FNO 


The function routine RUNGE has been removed from the 
published form of this report to protect the copyright 
of the authors of Reference 5, 


26 


27 


Subrout i ne rnumbr < remold , dgfc ,cd i 

IF( ABS ( RFNOLO ) .LT . l.OE-12 ) RENOLD» 1 .OF- 12 
TFCRFNOLO.LT. 1.0) GO TO 26 

CO ^DGFC*0^4 G ^" * *° ^ 0**-T, l*°E 3) I GO TO 27 

RETURN 

CO*OGFC*C 4. 5+2 4.0/ RENO LO ) 

RETURN 

ARF=ALOG( PENOLD) 

. Cf)= i 2 ?« 5 r 2 t“ 0 * ARE+9,0682#ARE ** 2 ” l - 77l3 * AR F**3*0.l718*ARF**4 
1 “0.0065*APF**5)*DGFC * * 

return 

FNO 


SMI ROUT INF PArMIMP|MX,KMX,MTHTAI 
WR f TP( 7, 100) MX,KMXv^THTA 
100 FORMAT 14! 5) 

RETURN 

r\n 

SURROMT INF f»A«FAnCMX # KHX,MTHTAI 
RFAT»I5.100) MX,KMX#MTHTA 
100 FORMAT C 31 5) 

RETURN 

FNH 

SURROUTINF BBOUMPIX) 
n T MENS ICN XI 21 ) 

0(1 10 K*l,l9,3 

10 WRITE! 7*100) X(K)*XIKMI *X(K+2)fK 
100 FORMAT I3E20«8»12X* 2HB8* 131 
RETURN 
fnt 

SURROUTINF RRREAfMX) 

OfMFNSirN XC21) 
on 10 K = l » 19,3 

10 RE 40( 5 , 100) X(K),X(K«-l),X(K«-2) 

100 FORMAT C3F20.8) 

RF TURN 
F\n 

SUBROUTINE BCOUMPIX) 

OIMFNSICN X( 21 ,21 ) 

00 20 1 = 1 , 21,1 

DO 10 K*l,19,3 

10 WR I TF( 7,100) XI T , K ) , X ( T,K+1),X(I,K+2),I,K 

20 CONTINUF 

100 f tSMATI 3E20. 8, 12X, 2HRC ,213) 

CFTIJPN 

C N 0 


OBKHNAfl PAiQiTB 

Of POOR IQEOAIOT 


SURROUTINF PORFAHI A.B.C) 
R c A 0(5, IOC) A,B,F 
100 FORMAT f 3E20« 8) 

RETURN 

ENO 


SUBROUTINE PCRFADCX) 

01 IF NS l ON XI 21 ,21 ) 
n U 20 t*l,21,l 
00 10 K=i , 19,3 

10 RFArt(5,100) XI T,Kt,XII »K+t),X(f,K+2) 
20 CONTINUF 
100 F3RMATC3E20.A) 

UPTURN 

FUO 

SURROUTINF P OOUMP { A , B, C ) 

WR I TF( 7 ,100 ) A , B , C 

100 FORMAT 1 3E 20* 8) 

RFTURN 

-■NO 
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Example (Part A) 


The example presented here uses the ft., lbm . , second 
system of units. The rotor in this case has an inlet radius 
of 2.961 inches (7.52 cm). The gas flow is that corresponding 
to a gas with inlet temperature of 2660°R and density of 
0.1277 lbm/ft 3 . 

A more detailed description of the input data format 
is contained in Reference 9. Only the output from the computer 
run is included on the following pages* 

The solution reveals no large variations in the radius 
of curvature and smoothly accelerating gas velocities from 
inlet to exit. 

Inputting the variable BCDP as described in Reference 9 
with a value of 2 will cauBe a set of data cards to be punched. 
These data cards are used aB the first part of the input 
for the particle trajectory program. 


106 


10 11 

0 1_ 

5 2 

o.ooooi 
0.3000 


input data carl LIST INu 
|3 ^3^0.0000 0.9840 13.0000 

0 155.3000 0.19 41 

1 noooo -l.OQOJ -35.0003 


1.3JoO 1715.0000 
3.00x0 2.5000 

-177503 571000 


0.3400 0. J94B 0.4810 0.5*12 3.51V3 


riwri £ L MMB'TSTI 1 !'! 


0.3 -0.0270 

0.7JOO U.4100 


1.4*85 1.4751 

2.2500 2.0180 

0.6(0 1 37o75T 

0.0 0.0 

-0.0517 -U .0572 


ITOT 


0.6000 0.7000 

.3350 0.3580 


n»i>LH— HCT1»1 


0.3750 

0.1650 

0.3650 

0.1553 

0.3550 

0.1460 "" 

0.3453 

0.1360 

0.3330 

0.1273 

0.3200 

0.1170" 

0.3100 

0.1370 

0. 3U30 

0.0580 

0.2 80C 

■ 0.6165" 

0.2510 

0.0750 


0.0700 

0.1940 

0.0600 

0.1660 

0.0500 

0.1370 

0.0400 

0.1090 

5.6365" 

0.0800 

0.0200 

-0.1000 

0.6000 

0.6500 


.35 
2.0500 


0.j<*50 

0.1400 

0.3330 

з. 13x0 
0.3210 
0.121U 

; » >ioo 

0.1130 

и. JUJO 
*3.1040 
0.2900 
U .m9jU 
0.2793 
0.06 70 
0.2680 
0 .0790 
0.25 70 
0.0730 
0.246O 
0.06 20 


0.06 10 
0.X94 u 
0.0 

0.1660 

0.3 

0.1370 

0.0 

0.1093 

575 

0. 0600 
0.0 
O.o 

0.7000 

0.750m 


-0.053O 
1 . IJ4C0 


4 • 

1.4150 

1.7630 

5.6751' 

o.O 

-0.U32 


JV3 

0.8000 

0.3220 


O.JUO 
0.1190 
0.36U0 
O.U 00 
0.29C0 


0.28i.'O 
0.0930 
0.2690 
'3.3863 
0.2580 

— Q.67bO ' 
0.24 73 
J.0730 

0.2360 

0.0680 

0.2240 

0.U62O 

0.21 30 
0.0570 


0.0520 

3.1900 

0.0 

0.1660 

0.0 

0.1370 

0.0 

0.1090 


0.3800 

*3.3 

J . . 0 JO 
0.80 00 
•J.85C0 


-0.0560 


1.4120 

-0.0034 
■0.24d 7 
'5.233V 
0.9303 
0.290 3 


0.2833 
J. 10*33 
0.2 700 
3.0923 
0.2590 


3.2490 

0.0790 

0.2383 

3.0 73 3 

0.2270 

O.UM” 

3.215 5 

0. 0620 

U.2C40 

•3.5583 

0.1930 

J.0540 - 

m. 1623 

3.0530 


0 « <*60 J 
0.1 59*3 
0.0 

0.1480 

3.3 

0.1370 

0.0 

3.1093 


0.0830 

3.3 

57I33T 

0.9030 

0.9530 


0.0093 


1.2083 

-0.0327 

-0.3512 


1.0003 
0.2600 
- 923 "~ 

0.2533 
0.0843 
0.2400 
0.3730 
0.2230 


0.2193 

0.0690 

0.2083 

3. 563) 

0.1973 

0.3 54 J“ 

3.1363 

0.055*3 

0.1753 

0.351) 

0.1643 

" 6.0473— 
3. L533 
0.0453 

11 R t3tl " 


0.0430 
0.1300 

o.u 

0.1180 

3. J 

0.1063 

0.0 

3.3930 
— * — ^ 


0.0800 

I.* 

0..V336" 

1.0000 

1.35)3 


0.1370 


1.0010 

-0.0)70 

-3.48u3 

■ . j t , \ 


J .. J 
1 . 1)00 
0.2 330 
'TT3T3T 1 
3.2230 
0.3743 
3.2 lo 3 
3.0640 
3.2030 


»■» 
3.1840 
3.0570 
3.1740 
3.3580 
0 »16u J 
0.O52T" 
3.157) 
3.0440 
3.147 J - 
) .3 4a 3 
0.13»0 
0.0436 
3.12*3 
0.3430 

“urrrar 

0.0310 

3.1020 

0.0 

0.0 71 0 
3.0 
3.08JO 
0.0 
3.3730 
“T7 3 

0.0630 
).2 

0.4 330 
1.1030 
1.15J0 


“. 150' 1 


2.1500 * 2. 2500 



STAG. SMfctU UE 
1 ti'< AT ION NJ. 

1 rt-AAT I JM NJ. 


[ TCM A T ION NJ. 
I TEH AT ION NJ. 
1 TcH A T KIN NJ. 


ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 

I TEH AT I UN NJ. ; 
I TEH AT ION NJ. 


I TEH AT ION NJ. 
ITERATION NJ. 
ITERATION NJ . 
ITERATION NJ 
ITERATION NJ. 
ITERATION NJ. 


ITERATION NJ. 
t TEH ATI ON NJ. 
ITERATION NJ. 


ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 


ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 


ITERATION Nj. 
ITERATION NJ. 
ITERATION NJ. 


ITERATION NJ. 
ITERATION NJ. 
1 1 CATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 


ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 


ITERATION NJ. 
ITERATION NJ. 
ITERATION NJ. 


SOUNJ AT 
1 
2 


INLtT = 
MAX. 
MAX. 


MAX. 

MAX. 

MAX. 


MA X . 
MA X . 
MAX. 
MAX 
MAX. 
MAX. 


MAX. 
MAX. 
MAX. 
MAX. 
MAX. 
MAX. 


MAX. 

MAX. 

MAX. 


MAX. 

MAX. 


1194.22 
STREAM! THE 
STREAMLINE 


streamline 

STREAMLINE 

STREAMLINE 


STRcAMlINE 

STREAMLINE 

STREAMLINE 

STREAMLINE 

STREAMLINE 

STREAMLINE 


STREAMLINE 
STR cAMLINE 
STREAMLINE 
S THE ML I HE 
STREAMLINE 
STREAMLINE 


STREAMLINE 

STREAMLINE 

STREAMLINE 


STREAMLINE 

STREAMLINE 


STREAMLINE 


streamline 

STREAMLINE 

streamline 

streamline 

STREAMLINE 

STREAMLINE 


streamline 

streamline 


STREAMLINE 


STREAMLINE 

STREAMLINE 


STREAMLINE 


STREAMLINE 

STREAMLINE 

5TREAMLINE 

STRcAMLINE 

STREAMLINE 

STREAMLINE 

■sWmlTnT 

STREAMLINE 

STREAMLINE 


STREAMLINE 

STREAMLINE 

STREAMLINE 


CHANgE ' 

change • 


CHANGE ' 
CHANGE 
CM VICE 


CHANG 
CHA JGE 
CHANGE 
CHANGE 
CHANGE 
CHANGE 


mill 
CHANGE 
CHANGE 
CHANGE 
CHANGE 
CHANGE 


CHANGE 
GH A HGE 
CHANGE 


change 

CHANGE 


CHANGE 


CHANGE 
CHANGE 
CHA 'iGE 
CHANGE 
CHA HGE 
CHANGE 


CHANGE 
CHA 4GE 


CHANGE 


CH INGE 
CHANGE 


CHANGE 


CHANGE 
CHANGE 
CHA HGE 
CHANGE 
CHANGE 
CHANGE 
CHANGE 
CHANGE 
CHANGE 


CHANGE 

CHANGE 

CHANGE 


0.222071 
J. 2U« US 


J. L<i4L5f 
0. 161830 
0.L41B67 


J. LOS SOB 
J. J9S628 
J. J84926 
J. 073936 
0. JOS 104 


9. J 5 7467 
J. 053730 
0. J44BU 
JVC 12 
0.335022 
0.030981 


0. >2741 
3. J 24263 
0. 021 A 77 


J. JL901B 
3 .016839 
0.014918 


0. J132H9 
3.311765 
0.010454 
J.0J9275 
3.338263 
0.007350 


0. JJ65J7 
3. X 5815 
J.J35I7B 


3 . JO A 60 8 
J. 004 102 
J. 003652 


0.JO3251 
0. 002 096 
J. 00250 L 


0.002 298 
0.002048 
) 1824 
0.001628 
0.001449 
3. JJ1293 


0.301152 

0.001026 

0.3J0916 







1 



STREAMLINE 

0.0 

3.5 

0.0 


'( 

n 


3.0 

TTo 

0.0 


). i 
3.0 


3 


It 

It 

H 

« 

« 

u 

tt 

If 

n 


0 


i; 

K 

if 


o 

VO 


r. 

H 

rf 

l< 


>1 

II 

IE 


If 

ll 

If 

»l 


0.0 

).3 

STREAmlInc 5 

0.060683 
0.060352 
0.1 J.Bb26 
0.2C9881 
0.2 50*63 
0.3056 /9" 
0.3*073* 

0.316767 

3.2 /il 72 
0.2*1698 
STREAMLINE 5 

j.i^^vr 

0.15/6 U 
0.221 103 
0.5**822 
0**060 76 
0. *60 506 

375ouTTT 

0.*a<*8 3* 

U.**b295 

v>.*<.u35l~ 
S7REAML INE 7 

0.160630 

0.231608 

0.313033 

0.**/203 

0.511662 

3.51/918 

0.6119/2 

O^TiJUUb 

3.565030 


0. 5 6?5*5 



0.0 

-3V077C75T 
• 0.05 5000 
-C . 05*000 

0. C090UJ 
0. I i 70 00 
j.*l >C0) 
0.7.HOO.J 
0.910000 
1.159999 


0.06C66* 

3.055311 

0. 065082“ 

0. 1 J5653 

0.217105 

0.3*2212 

0.5*0776 

0.7626*/ 

0.91J003 

1.027919 


C. 12"«J" 
0. 13 DO 02 
0. 162993 

D. 257V:) 
0.335959 
0. **5950 
0.63195* 
0.78012* 

0. 5 1 0003 

1. 0190 Of 


0. 18C833 
<>.2oAb2T 

v.. 2*5665 
0.3*58*2 
0. *21132 
0. 510J 12 
0.6**883 
0. /V Jo 69 
0.51 333 
1.011/56 


* 


2.253)00 
7711 d)JT 
1.76300) 
1. *11999 
T77T7 ~m 
1.0 JO 995 
3.77899 3 
'0.68)035 
0.6/5000 
) .6 750) ) 


2.250000 

2.325*12 

TT7oT?jT 

1.506001 

1.361201 

i. 22/825 

I . 0*3652 
0.99*085 

J. 9*»lsi 
0.91660* 


'2.25T3Tr 

2.0325** 


1.810265 
1.566*59 
1 .**8825 
1.3*2*90 
172*1W 
1.162223 
1.121312 
1 . 3 9*8* l 


2.250000 
2. <33713) 


1 .329230 
1.612293 
1 .5 ll5"oT 
l. *221*2 
1 .3 **12 9 
1.236757 


1*263)25 
1.23985 I 


STREAMLINE 9 

0.2*6*68 
O. 5 O 2 I 8 O 
0.38052(5“ 
0.5296*7 


0.2*6*72 

0.275896 

a. 52t!i*r 

U. *15555 


2.25)))) 

2.0*5375 

T77*7)Tl 

1.6*1219 


t 0.59.129 

0. *8 73 71 

1.5b))D) 

1 0.0 50 / 69 

0. 5 / )5 9b 

— l.4di)dl 

» 0. 706519 

0.67 I8b5 

1. *25900 

. 3.712656 

0. 8)3703 

1 .58 73b 1 

t 0.69821b 

0.9 ICO 'JO 

1.3732*3 

c 0.691)2 56 * 

1.005528 

1.36**19 

* STREAMLINE 11 



*■ 0.297995 

0.300000 

2.25)00 ) 

0.3 685 u6 

0.3*0003 

2.051993 

0**5639) 

•J. )9*803 

1.86)998 

0.598)70 

0. *81000 

.1.6/999* 


0 



295.63203) 
2**. 25? J65 
22*. 791 565 
176.907659 
— 1517737322 
186.012203 
i.9) . 71*)55 
— 2*8757*772 
399.253906 
537.195115 

296.517579 
2*8. r 99 966 

2A0.9/bb63“ 

2)6.871826 

2*8.6*62*0 

27). 109154 

309.0771 *.8 
*.’9.825195 
509.270020 
596.65*053 

298. 5 Li 18 V" 

256.050330 
262. 155762 

735.87/197- 

310.122303 
3*2.539 795 

37-77 685W7" 

506.18*082 
593.957275 
655. 25 -'*69 _ 

301.1*18*6 

265. 3>96TT“ 

285. *37061 
335.270996 
575.252686 
*25.136963 
*96.1*526* 

594.472656" 

666. 6. '95 75 
711.296387 

30*. 130371 
277.515381 

— mrsimr 

389.917*8) 

*52.625291 

528 7507727 

605.0*8 3*0 
630. *99291 
728.135/89 
761.5122C7 

)()/.** 7516 
289.208008 
3*3.776*1* 
*53.138672 




28.5*85!?? 
7570 559 R* - 
23.13)295 
20.0367*3 

17.09*681 

15.796560 


1*7876607 

13.77*9** 

12.5313*0 




0.0 

“07TT 

0.3 

0.0 

“07TT 

?.** 

0.0 


o.i)“ 

0.0 

0.0 


—37*15557! 
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Example (Part B) 

The example presented here uses the ft. r lbm . t second 
system of units. The rotor in this case has an inlet radius 
of 0.26475 ft. (7.52 cm). The gas flow is that corresponding 
to a gas with inlet temperature of 2660°R and density of 
0.1277 lb/ft 3 . 

The particle studied has specific gravity of 2 and a 
diameter corresponding to about 10 microns. The velocity is 
initially in the same direction as the gas flow solution 
with a magnitude of one half the gas velocity. The particle 
bounces off the shroud surface before passing through the 
turbine . 

The following pages contain a computer code sheet with 
the data arranged in the proper columns , and the output for 
this example. The block indicated as that punced by the 
Quasi-Orthogonal program is approximately a box of cards 
that is required to transfer the Quasi-Orthogonal information 
to this program. 
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VANPY - ParticJ "» s in a Turning Vorte x 

This program calculates the trajectory of a particle in an 
inward turning vortex after first calculating the flow through 
such geometry. 

The fluid flow solution is based on the principal of constant, 

X = V r along the streamlines, although the values X, may be dif- 
ferent for different streamlines. The variation in the radius of 
curvature of the streamlines between hub and shroud is taken to 
be linear. The original program was supplied by NASA Lewis Re- 
search Center, but was modified such that the input of data is 
easier and the velocity signs are consistent with those used in 
the solution of the particle trajectories. 

Method 

Figure 24 is a flow diagram of the program VANPY. The results 
of the fluid solution are stored in arrays that specify the velo- 
city vectors of the gas at the intersection points of the ortho- 
gonals and streamlines. With the fluid solution completed, the 
program uses a Runge-Kutta technique to integrate the three- 
dimensional equations of motion of the particle » 

The integration of the equations of motion over one time 
increment is first carried out using the gas velocity and the 
properties of the gas at point A to determine the new particle 
location B. The program then calls BLOCAT and POLATE to determine 
the gas velocity components at B^. A corrected gas velocity com- 
ponents are calculated from with the mean values at A and B x . 

The program then integrates the equations of motion again starting 
from A to find the corrected particle location BLOCAT and 

I POLATE are called again to give the gas velocity components at Bj, 

I and these velocity components are compared to the corresponding 

values at B^, if the difference is large, the previous iteration 
• is repeated. Jnce the iteration has converged, the trajectory 

to point B has been determined and this point is used as the initial 
j point for the next time incremer.*-. 
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The subroutine CONTIN is used to iterate for the hub surface 
velocity, the iteration technique is based on the mass flow cal* 
culated from the fluid solution. 

The subroutine PABC calculates the coefficients of the parabola 
2 

y = ax + bx + c, passing through three given points. This sub- 
routine is used in the fluid solution. 

The subroutine FNTGRL performs the integration of a function 
F{1) over equal size increments. This subroutine is used in the 
fluid solution. 

The subroutine SPLINT interpolates points along a spline fit 
curve that lie between the points specifying the curve. 

The subroutine RNUMBR is used to determine the drag coefficient 
based on a curve fit of the drag versus Reynolds Number data. 

Equations 20 and Figure 3 demonstrate the fit of these equations 
to the data. 

The subroutine RUNGE uses a fourth order method to integrate 
a system of simultaneous first order ordinary differential equations 
across one time step. Reference 5 explains this subroutine in 
more detail. 

The subroutine BLOCAT is used to determine the subscripts 
of the grid points that surround the location of the particle. 

Figure 15 shows the particle within a typical set of orthogonals 
and streamlines. The subroutine returns the values of IP and 
KP that locate the particle within a particular grid. If the 
particle is no longer within the boundaries of the flow field, 
the subroutine returns NOUT, which is a code specifying where the 
particle has moved out of bounds. 

The subroutine POLATE interpolates the value of a variable 
whose values are specified at the four grid points surrounding the 
particle. Referring to Figure 15, the subroutine first determines 
the distances D{1) and D(2), and based on these distances, determines 
a weighted average of the variable at two locations on adjacent 
streamlines. These values are AA and AB. Then the subroutine 
determines DD{1) and DD(2) and uses these distances to get the 
weighted average of AA and AB at the position occupied by the particle. 
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The subroutine RBCH is used when the particle rebounds from 
the case or the hub. It is called whenever the particle position 
is outside the case or hub boundaries „ The subroutine returns to 
the previous position, and linearly extends the trajectory over 
one time increment, with the bounce occurring at some portion of 
the time segment. The subroutine writes •’BOUNCE OFF SURFACE 
(NOUT) ...” and prints the location of the bounce. 


Input 

The input cards take the following format. Any consistent 
system of units can be used. An example of the input data is 
included with the example case presented after the program listing. 
The data cards cover two main groups; 


Growj A 


MX, KMX, Zl, Z2 , Rl, R2 


(215, 4F10.5) 

GAMMA, CP, TIP, RHOIP, WRFL 


(5F10.5) 

RC (2 , 1) ... RC (2 , KMX) 


(8F10.5) 

AL (1 , 1) ... AL (MX, 1) 


(3F10.5) 

LAMBDA (1, 1) ... LAMBOA (1, 

KMX) 

(8F10.5) 

l B 

TITLE 


(18A4) 

VISREF, TREF, TSUT, DGFC 


(D20.5, 3F10. 

RHOP, DIAP, H, TMAX, ETA-N, 

ETA-T 

(F10. 2, 3D1Q. 

YR ( 1 ) , YR ( 2 ) , YR(3), YR(4), 

YR (5) , YR (6) 

(6F10.3) 

NSTEP 


(15) 


Data Group A. 

These cards specify the parameters of the gas flow solution. 

If only these input cards were fed in the input, the fluid solution 
only will be obtained. Figure 25 indicates with more clarity some 
of the terms listed below. 

MX - Number of orthogonals. 

KMX - Number of streamlines. 

Z1 - Axial location of first orthogonal. (Length) 

Z2 - Axial location of the circle center. (Length) 
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R1 

R2 

GAMMA 

CP 

TIP 
RHOIP 
WTFL 
RC Array 


AL Array 


LAMBDA 

Array 


- Radial location of last orthogonal. (Length) 

- Radial location of the circle center. (Length) 

- Ratio of specific heats. 

- Specific heat at constant pressure. (C g) (Length / 

2 * 

Time - Degrees Abs) 

- Inlet stagnation temperature. (Degrees Abs.) 

- Inlet stagnation density. (Mass/Length ) 

- Fluid mass flow. (Mass/Time) 

- Radius of curvature of streamlines 1 through KMX at 
orthogonals 2 through (MX-1) . (Length) . The radius 
of curvature of the streamlines along orthogonal 1 
and MX are set equal to 10,000 by the program. 

- The angle a corresponding to the flow directions at 

the orthogonals 1 through MX, this angle is negative 

in the direction indicated in Figure 25. (Degrees) 

_ T h e term X = rV for each streamline from 1 through 

2 U 

KMX. (Length /Time) 


Data Group B, 

These cards specify the variables that are used in determining 
the trajectory. For studies involving more than one particle, sets 
of input cards for different particles can be stacked together. 


TITLE 

VISREF 

TREF 

TSUT 

DGFC 


- The first card is reproduced at the top of the first 
page of output for each particle. Any statement in 
columns 2 through 72 will be reproduced. 

- Reference viscosity corresponding to TREF. Used in 
Sutherland’s Law. (Mass/Length Time) 

~ Reference temperature corresponding to VISREF. Used 
in Sutherland's Law. (Degrees Abs.) 

- Constant used in Sutherland's Law. Either 198. 6°R or 
110. 0°K. 

- Drag factor. The drag coefficient based on Reynold's 
Number is multiplied by DGFC. Except in very special 
cases, this should be 1.0. 
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3 

RHOP - Particle density. (Mass/Length ) 

DIAP - Particle diameter. (Length) 

H - Time increment used in integration process. (Time) 

TMAX - Program stops if time exceeds TMAX. (Time) 

ETA-N - Normal restitution coefficient. 

ETA-T - Tangential restitution coefficient. 

YR (1) - initial radial position of the particle. (Length) 

YR (2) - Initial radial velocity component of the partible. 

(Length/Time) 

YR (3) - Initial angular position of the particle. 

YR (4 ) - Initial angular velocity of the particle. (Time ) 

YR (5) - Initial axial position of the particle. (Length) 

YR (6) - Initial axial velocity of the particle. (Length/Time) 

NSTEP - The program prints out trajectory information every 

NSTEP time increments. 

Output 

An example listing of typical output is included after the 
program listing. This output is divided into several output groups. 

Output Group A, 

This set of output is an echo check of the input data and 
includes the calculated critical velocity of the gas. Such data 
checks are useful in correcting key punch mistakes on the data 
cards. The variables listed in this group were explained under 
Input. 

Output Group B, 

This set of output concerns the solution of the gas flow 
through the turning vortex. A new page is used for the printed 
output of different orthogonals. The R and Z arrays locate the 
intersection points of the orthogonals and the streamlines. The 
RC r ALPHA and LAMBDA arrays are explained under Input. The rest 
of the output formats are explained below. 

WTFLES - Estimated weight flow when iteration procedure stops. 
(Mass/Time) 
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BETA Array - Angle between the meridional velocity component and 

the velocity vector, at the intersection of the 

orthogonals and streamlines. (Degrees) 

V/V - Dimensionless speed at the intersection point of 

C XT 

Array the orthogonals and streamlines. 

Output Group C. 

This set of output corresponds to the particle trajectories. 

The first part is an echo check of the input cards corresponding 
to Data Set B. After initializing the variables, the program 
calculates and prints several similarity parameters to relate 
particles having similar trajectories. The variables that are 
printed are explained below. 

DELTA - The characteristic length based on the critical density. 

(Length) 

TAU - The particle time constant based on the viscosity at 

critical flow conditions. (Time) 

RECR - The Reynolds Number of a particle whose velocity is 

equal to half the gas critical velocity. 

After the similarity parameters are printed, trajectory information 
is printed every NSTEP time increments. This information includes 
the following terms. 

L - Number count of the time increments. 

T - Time 

YH(1) - Position and velocity components of the particles. 

... YR(6) 

RENOLD - Reynold's Number of the particle at this location. 

When the particle passes out of the flow field through the 
inlet or exit, the program always prints the trajectory information 
for the last point, which should be just outside the boundaries. 
Following this the value of the number of iterations, M, is printed. 
If the iteration procedure for the particle location B has not 
converged, the value of M will be 101, and a smaller time increment 
is recommended. 
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EVEL 21 


MAIN 


OAT E * 75045 


15/27/44 


PARTICLE THROUGH A TURNING VORTEX 720626 

THIS PROGRAM CALCULATES THE PARTICLE TRAJECTORY IN AN INWARD 
TURNING VORTEX, AFTER FIRST CALCULATING THE FLOW THR OUGH SUCH A 
GEOMETRY, THE FLUIDS SOLUTION IS BASED ON A STREAMLINE CJRVATURE 
METHOD IN WHICH A LINEAR VARIATION IN THE ?ADU1S OF CURVATURE OF 
?H= STREAMLINES IS ASSUMED BETWEEN THE HUB ANO THE SHROUD, THE HUB 
AND THE SHROUD CONTOURS ARE CIRCULAR ANO THUS HAVE CONST AST RIAOIUS 
OF CURVATURE, SEE THE PROGRAM DESCRIPTION FOR THE INPUT DATA RELAT- 

ING T FROM E THE U INIUAL T POINT, GIVEN AS INPJT, THE PROGRAM USES A 
RUNGA-KUTTA METHOD TO INTEGRATE THE PARTICLE EQUATIONS OF M0T 
DETERMINE THE LOCATION OF THE PARTICLE BASED ON A J^EN TIME STEP, 
rue FLUIDS SOLUTION, AT GIVEN GRID POINTS IS USED TO CALCULATE THE 
AM3DYNAM1C DRAG ON THE A ARTICLE* SEE THE PROGRAM DESCRIPTION FOR 
THE INPUT DATA AND FORMAT RELATING TO THF TRAJECTORY SOLUTION. 

C * W. B. CLEVENGER, JR. 


I ANSI 21 
DIMENSION 
DIMENSION 

1 


IMPLICIT real*s IA-H,0-Z) 

RFAL*8 LAMBOA 

01 MENS ION V 1 21 ,21 ) » BET A I 21»2l)fRI2l,2i)»RCI21,2lI,AL(21f2l)t 

) ,F(21,2l), LAMBDA 121,21) »R0( 21* *Z<2lf 21 ) 

STATEI 18) ,YR( 61 , YRSI6) ,VR(4) ,VUI4) »VZI4) ,RH0AI4) • 
TEMPAI4) ,V 1ST ARIA), ETA I 4) 

DIMENSION FRI6) ,RAI2 ) ,ZAI2) 

PI*3. 14159 
C0NV=PI/180. 

JZ*1 

RE ADI 5, 1000 } MX,KMX,Z1,Z2,R1,R2 
WRI TE 1 6,2130) MX ,KMX, Z 1, Z2 ,R 1 »R2 
READI 5 , 1005 ) GAMMA ,CP»TI P,RHOIP,WTFL 
WRI TE 1 6,2140 ) GAMMA, C P,T I P,RHOIP»WTFL 
RE ADI 5 , 1010 ) IRCI2.K) ,K=l,KMX) 

WRITE 1 6, 2170) KMX, IRC! 2, K) ,K-l ,KMX) 

READ! 5,1010) I AL ( I , 1 ) » I *1 ♦ MX ) 

WRI TEl 6,2160) MX, I ALI I , 1 ) , I *1 t MX) 

READI5,1010) ILAM BDAI i,K)»K*l»KMX) 

WRITEI6,2150)KMX, I LAMBDA! l,K) ,K«1»KMX) 

DO 6 K* l » KMX 
00 6 I *1 , MX 

IFtt.EQ.l) RCI I , K ) *- 10000, 

IFII.EQ.MX) PC 1 1, K) *-10000. 

IF (I I.GT.l ), AND. I I ,LT,MX ) ) RCII,K)*RCI2,K) 

ALI I,K|*ALt I ,1) 

LAMBDA! I, K) -LAMBDA l i,K) 

IFII.EQ.I) Pit ,K)=R2-RCl 2,K) 

IFI ! I.GT.l ) .AND. 1 1 .LT.MX I ) R I I,K)*R2-RC! 2,K )*DCDSt AL I I,K)*CONV ) 
IFII.EQ.I) Z!I,K)-Z1 

{^ij!2?!:{j.^:Ji:^:s:fi:..R,.««.c,p.K,.Ds.N,RL...R..cDNv, 


LEVEL 21 


MAIN 


DATE * 75045 


15/27/44 


6 continue 

DO 100 I * l * MX 
WRITE! 6*2060 ) I 
WRI TEC 6*2010) 

WR I TE C 6 *2000 ) C 4 C I ,K ) • K*l » KMX ) 

UR I TFC 6*2040 ) 

WR J TEC 6*2000) C l C I ,K) , K*l ,KWX ) 

WRI 7EC6* 2020) 

WRITEC6,2000)CRCC1 ,K),K*1,KMX) 

HRITEC 6,2030) 

MR I TEC 6,2000 )C AL C I ,K),K«1,KWX) 

WRI TEC 6*2050) 

WR I TEC 6*2000) C LAMBDACT »K > ,K«l,KMX) 

XLENTH»DSORTCCRC I,KMX)~RC 1,1) )**2*CZC I,KMX)-ZC U 111**21 
VCR*DSORTC2.0*CP*T1P*CGAMMA-1.0)/CGAMMA4>1 # 0» ) 

IND= 1 

nn*kmx-i 

OELTAN*XLENTH/3 5r LOATCKMX-l ) 

VM«WTFL/RHOl P/XL ENTH/P I / C R C I , l ) +R C I , KMX) ) 
VEST*0SQRTCVM**2«-C LAMBOACIt D/RC I*U )**2 1 
OELTA^VEST/20. 

13 VIItil-VEST 

IFC CVC I ,1)**Z) .GT.2.0*CP*TIP) GO TO 45 

R HO* 4 HO lP*Cl»-CVCI,l)**2)/C2«*CP* TIP ))♦*!!•/! GAMMA- 1* 1 1 
F C 1 1 1 ) *RHO*VM*R C 1 1 1 1 
VA=L AM80AC I , l )/R ( I » l ) 

A=1./RCC 1,1) 

B»-C VA**2 )*C A«-DCOS C AH I, 1 ) *CONV 1 /RC I , l )) 

DO 20 K*i »NN 

VIST AR*VC l»K)*CA*VC ItK J + B/VC UK) )*DELTAN 
A*l*/RCC I *K+1) 

VA*LAMBDACI,K+1)/RCT,KH) 

B=-( VA**2 )*C A+OCOSC AL C I ,K+l) *CONV )/R C I ,< + l ) ) 

V2STAR*VC I »K )♦( 4*Vl STAR#-8/Vl STAR )*DFLTAN 
VC UK*l )*C VISTAR+V2STARI /2. 

VM2=VC I ,K*l )**2-VA**2 
VM-0.0 

IFCVM2.GT.0.0) VM*DSQRT C VM2) 

IF C C VC I ,K+l)**2) .GT.2.0*CP*T IP) GO TO 46 

RHD=RHOIP*C i.-C VC 1 ,Kfl)**2)/ C2.*CP*T IP) ) ** C 1. / C GANM A-l. ) ) 
20 F C 1 1 K* 1 )= RHD*VM*R ( I , K + l ) 

DO 30 K*l *KMX 
30 FlCK)*FCItK) 

CALL FNTGRUDELTAN, Fi,KMX, ANS) 

WTFLE S*AN$C KMX ) *2 • *PI 

IFCOABSCWTFLES-MTFD.LE.tOOOOl *WTFL) G3 TO 50 
CALL C ONT INC VEST, WTFLEStlNDt JZ,WTFL, DELTAX) 

IF ( IND.LT.IO) GO TO 10 
IFC IND.NE.10)G0 TO 40 
WR I TEC 6, 2110) WTFLES 
GO TO 50 
40 WRI TEC 6,2070 ) 

GO TO 100 
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*5 WRI TE( 6,2080 ) VII *1 ) 

GO TO 100 

*6 WRITE(6,2081 I VII, Kfl) 

GO TO 100 
50 03 60 K* l , KMX 

‘ BET All ,K)*DARSIN!LAMBOAI I,K)/V(I»K|/R(I*K| l/CONV 

60 vii,k!«vu,k!/v:r 
WR I TEI 6*2120 ) WTFLES 
WRI TEI 6,2090) ( BE TA ( I ,K ) ,K»l , KMX ) 

WRITE! 6,2100 ) ! Vt I «K) »K*1 , KMX) 

100 CONTINUE 

105 RE ADI 5 , 3000 ) I STATE III ,1*1,18) 

WRITEI6»*00Q)(STATE(I) ,1*1,18) 

RE AD (5,3010) VISREF ,TREF ,TSUT ,R AIR , OGFC 
WRI TEI 6, *010) VISREFyTREFyTSUT ,RAI R, DGFC 
READ! 5, 3020) R'OP , DI AP, H, TMAX,ETA ! I ) , ET A I 2 ) 

WRI TEI 6, *020 ) RM3P.0IAP, H, TMAX*ETA!l ),ETAI2) 

T*0.0 

RE AD! 5, 3030 ) I YR I I 1, 1*1,6) 

WRITE! 6 ,*030 ) ! YR ! I ) ,1=1,6) 

RE ADI 5 , 3080 ) NSTSP 
WR I TEI 6, *080 ) NSTEP 

RH0CR*RH0IP*l2.0/IGAMMAfl,0) )**( 1*0/ (GAMMA- l.O) » 
DELTA*RHOP*OIAP/RHOCR/0. 3 
TCR* 1 2 *0/ I GAMMA*! ,0))*TIP 

VI SCR= VISREF*! ( TCR/TREF ) ** l. 5 )*( TREF*TS JT I / (TCR*TSUT) 

TAU*RHOP*DI AP**2/18,0/VISCR 
RECR=DI AP*RH0CR*VCR/VlSCR/2.0 
WRITEI6, 50201 DELTA ,TAU, RECR 
WR I TE I 6 ,*090 ) 

DO 110 1=1, MX 
DD 110 K* 1 »KMX 
AL( I »K )*ALI I ,K)*CONV 
BETA! I ,K)*BETA( I ,K)*CONV 
VI I,K)=VII,K)*VCR 
110 CONTINUE 

DETERMINE AIR VELOCITIES AND PROPERTIES AT PARTICLE LOCATION* 

SET UP TD START TRACE AND INITIALIZE. 

CALL BLOC AT I R , Z ♦ MX »KMX , YR , IP , KP,NOUT ) 

IF (NOUT.EO.O) 50 TO 130 
WRITE! 6 ,*0*0 ) NOUT 
GO TO 105 

130 CALL POL ATFIR.Z,V,YR(l ) »YR(5 ) , IP, KP, VP, DO) 

CALL POL ATE !P,Z,BETA,YRI II ,YPI5) ,IP,KP,BETAP,DD) 

CALL POLATE(R,Z,AL,YR( 1 1 , YR! 5 I . I P ,KP , ALPP, DO ) 

VRIl )=VP*DCOS(BETAP)*OSIN( ALPP) 

VJI 1)=VP*DSIN1B5TAP) 

VZ 1 1 ) * VP*DCOS! BETAP)*DCOS( ALPP) 

TEMPA! 1 )*TIP*I l.-VP**2/CP/2./TIP) 

RHOA 1 1 ) *RHQ I °* (TEMP All |/T I PI ** 1 1 . /GAMMA- U I 

VI STAR I D* VI SREF*|TEMPA| 1 ) /TREE) **i.5* I TREFfTSUT ) /( TEMP A 1 1 |*TSUT ) 


127 


MAIM 


DATE * 75045 


15/27/44 


Jlevel 


21 



{ »J 


0 



! 

u 


Ljc 

c 

If 

U 

y 

o 

o 


INITIALIZE FOR FIRST STEP, 

, RPART»DIAP/2. 

: M = 6 

' M=i 

NTIHE*-l 
T = 0.0 
TS=T 

00 610 1*1,4 
VRI I )«VR< 1 ) 

VU( l l-VUI l ) 

vzm*vzm 

RHOA ( I ) aRHOA ( l ) 

TE MPA ( I ) *TFMPA ( l ) 

610 vistaru)*vistarui 

DO 620 1=1, N 
620 YRS(U*YRm 

integrate using rumge-kutta method. 

625 VO I F c = D SORT ((VR(2)-YP(2) 1**2 +f VIM 2 l-YRC U*YR<4II**2*(VZ( 2) -Y»l 61 1 
1 **2) 

R5NOLD=RMOA(2)*VDI FF*D IAP/VI CTAR< 2 ) 

CALL RNUMBM REMOLD, DGFC, CD) 

BCON=RHOA(?)*CD/RHOP/RPART/2.33333 
630 I F ( RUNGEI N,YR»FR,T ,H ) • NF, 1 ) GO TO 640 
FR(l)*YR(2) 

FR<2)*YR<l)*YR(4)**2*BCON*VDIFF*tVR(2)-YRI2) ) 

FR(3)=YR(4) . - 

FR(4)*-2.0*YRC2)*YR(4)/YRm ♦BCDNPVDIFF*IVU(2)-YRIl )*Y«(4) l/YRIt ) 

FR C 5)*YR(6) 

FR(6)=BC0N*VDIF=*(VZI2)-YR(6) ) 

GD TO 630 
640 CONTINUE 

DETERMINE IF WALL INTERACTION OCCURRED. 

CALL BLOC AT (R»Z,MX»KMX»YR» IP,KP,NOUT) 

I>= (NOUT.EO.O) GO TO 700 

IF < (NOUT.EQ.il. OR. INOUT. EQ.3) ) GO TO 780 
DO 645 1*1,6 
645 YRI II*YRS( I I 
T = TS 

IFCN0UT.NE.2) GO TP 650 
RA(1) =«( IP,l ) 

RAI2I*RCIP-1,1I 
ZA(l)*ZUP,l ) 

ZA(2)*ZCIP“l,ll 

WR ITEI 6,50001 NOUT 

CALL RBCHIYR,RA,ZA,T,H, ETA, NOUT) 

GO TO 750 
650 CONTINUE 
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«A( 1 1 =P ( I P, K MX > 

RA(21 S R{I P~1 , KMX ) 

ZA( 1) =/ (I P f KMXi 
2A(2)«Z(!P-lfKMX) 

WRITEI6, 50001 N3UT 

CALL RRCHlYR ,R A,ZA , T ,H , P T A , NOUT | 

GO TO 750 

DETERMINE AIR values AT NEW LOCATION. 

700 CALL POLATFCR,/, V.YRIll , YP < 5 1 , IP, KP, VP ,001 
CALL POLATFI P,Z, RETA,YRJ l 1 , VP ( 5 ) , | P f KP , BPTAP ,DD1 
CALL POLATL ( R , 7 , AL, YR(l) » YP (5 1 « IP, KP , ALPP,DD) 

VR <4)=VP*DC0S( »ETAP)*DSIN( ALPP) 

VU(4 J )*VP*0SIN(BFTAP) 

VZ (41*VP*DCD$(BETAP)*DC0S( ALPP) 

TEMPAI 4 )*l,0-( VP**2 ) /2.0/CP/ TIP 

R-IOAU) *RH0IPM TEMPA(4)/TIP)**U .0/( GAMMA- 1.011 

V! STAR I 4 l=VISRr=* I TEMP A C 4 1/ T REF » **1 . 5*{ TR F F ♦TS JT ) / | TEMP A( 4 ) ♦TS UT I 

TEST AIR VALUFS USED, IF INCORP ECT, P ESFT INTEGRATION VALUES 
AND GO T3 750. 

IF ( I DABSfVR I4 >-yRI?)|.LT. 1.0E-41 . AND.I DABS! VU(4)-VU(3)1.LT. 1 • OE-4 1 
l .AND. (DABSIVZI 4I-VZI3) ).LT. l.OE-4) 1 GO T3 750 
VRI2)*lVR|4)*YR(l ) 1/2.0 
VUC 2) = (VU(4)*’VU( 111/2.0 
VZ(2)*(VZ<4)*VZI2))/2.0 
VR I 3) =VR( 41 
VU( 3)*VU(4> 

VZ(3)=VZ(4) 

RH0A(2)=( RHOA I 4 ) ♦ RHO A( l) 1/2.0 
TEMPAC2 ) = (TEMPA( A1+TEMPAI2H / 2.0 
V I STAR ( 2 1 * ( V!STAP(4) + VI$TAR < LI) / 2.0 
T*TS 

DO 710 1*1, N 
710 YR (I }*YRS( I I 

IPfM.GT.100) GO TO 800 

M*M4-1 

GO TO 625 

COMPLETE INTEGRATION STEP, IF REQUIRED, WRITE OUTPUT. 

750 M=1 
L *L ♦ 1 
TS=T 

DO 760 I = 1 , N 
760 YR S ( I l * YR ( I ) 

VR (21*1. 5* VR 141-0.5* VP (1 1 
VRC 3)=2.0*VR( 4)-VR( 1) 

VR ( 1 )*VR(41 
VR ( 4 1 *VR( 3 1 

VU(2i»1.5*VU(41-0.5*VU( l 1 
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VJ!3)=2.0*VU!4)-VU! 1) 

VU<1)*VU(4) 

VU!4)*VU! 3 ) 

VZ<2)»l.5*VZm-0.5*VZ! I ) 

VZ!3)*2.0*VZ!4)-VZ(4) 

vz<i)*vzm 

VZ!4)*VZ! 3) 

RHO A ! 2 ) * L • 5* RHOA ( * ) -0« 5* RHOA III 

RH0A!3)*2.0*RH3A(4)-RH0A(il 

RHOA!l)*RHOAtA) 

RM0A14) «RHOA<3) 

TEM»A!2 )«=1.5*TFMPA! 4)-0.5*TEMPA! 1) 

TEMPA! 3)*2.0*TFMPA!4)-TFMPA! 1 1 
TEMPA! 1 )=TEMPA!4) 

TEMPA!4)*TEMPA!3 ) 

VI STAR ! 2) «1. 5*VISTARI4)-0.5*VISTAR! 1) 

VISTAR! 3)»2.0*VISTAR!4)-VISTAR! 1 ) 

VI STAR! 1) =VISTAR!A) 

VI ST AR ( 4 ) «V I ST AR ( 3 ) 

NTIMF*NTIME-1 

780 IF! INOUT.FQ.l) .OR. ! NOUT. SQ.3 ) .OR. IT.GT.TMAX ) 1 GO TO 800 
IF(NTIME*GT.OI SO TO 625 
WRITE (6 .*050 1 T«!YRII)*I*1*6 ), RE NOLO 
NT IME*NSTEP-l 
GO TO 625 
800 CONTINUE 

WRITE (6*4060) T.IYRCII ,1 *1 .6 ) .RENOLO 
WRITEI6.4070 ) M 
805 CONTINUE 
GO TO 105 

FORMAT STATEMENTS 

1000 FOPMATI2I5.6FIO.5I 
1005 FORMAT! 8F10. 5) 

1010 FORMAT ! 8F10. 5) 

1015 FORMAT f 8E10.4) 

2000 F ORMAT ( IH .BG16.7) 

2010 FORMAT ( 3H R APR AY I 
2020 =ORMAT!9HOPC ARRAY) 

2030 FORMAT! 12H0ALPHA ARRAY) 

2040 FORMAT ! 8H0Z ARRAY) 

2050 FORMAT! 7H0L AMBDA } 

2060 FORMAT! IH1.25H THE ORTHOGONAL NUMBEP IS.I3///) 

2070 FORMAT ( 46H0A SOLUTION CANNOT BE OBTAINED AT THIS STATION) 

2080 FORMAT! 1H0.43H AFTER 10. V!I,1) *GT. 2. CP*CIP. E!I.i) *.F15.2) 

2081 e ORMAT! 1H0.49H DO 20 LOOP. VM.KH) -GT. 2.*CP*TIP. Vtl.K+l) *♦ 
1 F 15.2) 

2090 FORMAT! UHOBETA ARRAY/ 1 1 X. 8G16. 7 ) ) 

2100 FORMAT ! 8H0V ARRAY/ ! IX, 8G 16. 7 ) ) 

2110 FORMAT !42H0THF PASSAGE IS CHOKED WITH A MASS FLOW OF.G16.7) 

2120 FORMAT I7H0WTFLES/1 IX, SGI 6. 7) ) 

2130 FORMAT! 1HI, IH INPUT DATA. /.8X.2HMX, 7X.3HKMX, 8X.2HZI, 13X, 2HZ2, 
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l 

2140 

l 

2150 

2160 

2170 

3000 

3010 

3020 

3030 

3080 

4000 

4010 

1 

4020 

1 

*030 

i 

4040 

4050 

4060 

4070 

4080 

4090 

5000 

5020 


13X,2HR| ,13X,2MR?,/,I2I10*4F15.5M ,,v 

PORMATI HO,lOX,iHGAMMA.l3X,2HCPtl2X. 3HT1P. 10X, 5HRH01 P, l IX* 
4HWTFL./.IF15, 4,2F15.3,2E15.5M 
F0RMATIlH0.5X»14HLAMB0A f K = 1 1 * 1 3 » / ♦ *8015 . 5 1 1 

c 3RMATI 1H0.5X , 13HALPHA , I * l »» I3t/f IRG15.5I 1 
C3RMATUH0.5X.13HPC. K * 1 , » 13*/ » t 0G15.5I ) 

FORMAT ( 18A4I 
F3RMATIE20.5.4F10.3) 

FORMAT IF10*2f3Fl0.4t2Fll).3l 

P0RNATI6F10.3I 

F0PMATU5I 

FORMAT! lH0 , ,13x!4HVISPEF,nX,4HTaEF,llX,4HTSUT,llX.4HRAIR,ilX, 
FORMAT! lH0M0X?4HRMnP, UX.4H0IAP. 14X.IHH. 11 Xf4HTMAX.I0X.5META-N, 

Format UH ot U^HvJm aox%MVfiiz». iox, 5 hyr ( 31 ,iox, 5 hyr! 4| ,iox, 

^O^A^Iin^n^lia^^^PASSAGF AT FIRST POINT GIVEN, GO TO 
L NEXT CASE) 

F3RMATI1H , E 15. 2 , 7F 1 5. 4) 

FORMAT I IHO. E15.2. 7F15.4) 

FORMAT ! HO « 4H M *,110) 

FORMAT! 17H0PRI NT DATA EVER Y , I 7, 2 X, 7H STE PI S ) 1 

FORMAT! IHO, l3X,lHT,l0X f 5HYRm,10X,5HYRI 2) , 10X, 5HYR I 3) , 10X, 

1 5HYR (4) , 10X, 5HYR ! 5) , 10X ,5HYR ! 6 1 , 9X,6H»FN0LD) 

FORMAT ! 29H PARTICLE ROUNCFD OFF SURFACE, 151 T nii . pi? u , 

F0RMATI32H0SIMILARITY PARAMETERS. OELTA * , F10.4, 5X, 5HTAU ,E12. 

1 5X.6HRECR *,S12.4) 

END 


r 

r 

r 


SI P^rt UNF P4flf<XtY«A«fi»C) 
fvc| tfjr pFA|*F li-H.C-Z) 


>ljRRCi*T|NF 
V = A * V * ‘A ' 5 


F A ° r C 

4 P*X 


ALCUATfS Cf EFF ICIENTS A. 

4 C. PASSING TFROUGH THREE 


9. C CF 
GIVEN 


ThE PAPAeOLA 
X «Y PCINTS 


ri^NSIfN > ( 2 ) ,V I 2 1 
r ] S y M I 

C2*!V(2)-4li M/lxL2)”X!l)l 
4-in!*C?-Yf3MY( 1 . II/C1/IXI2I-XI3)) 

f ,Y( ^ | -x( . 1 l**?*A 

3 F Tl I - 6 

FNT 


The function routine RONOE has been removed from the 
published form of this report to protect the copyright 
of the authors of Reference 5. 
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CONTIN DATE * 75345 


SUBROUTINE CONT ! NI XEST » Y CALC • INO*JZ»YGIV* XDEt I 
IMPLICIT P.EAl*8 I A-H*0-Z I 
DIMENSION Xl3)»ini 

NCALL*NCALL*l . ^ 

I=< INO.NE. I.AND.NCALL.GT.501 GO TO 160 
GD TO C 10*30*40' 50*60*80*133 )* IND 
-****#FIRST CALL 

10 NC At L* l _ 

IF(YCALC.GT. YGIV.AND.JZ.EQ.il GO TO 20 

l ND*2 


D 

0 

0 


Y ( 1 >*YCALC 
XIU'XEST 
XEST-XEST+XDEL 
RETURN 
20 I NO *3 

Yt3)«YCALC 

xm*KEST 

XEST-XEST-XOEL 

RETURN 

^•♦♦♦♦second CALL 


n 30 I N 0*4 

Yf 21 -YCALC 
L XI 2 )*XEST 

XEST-XEST+XOEL 

RETURN 

-I 40 I ND *5 

YI 2 I-YCALC 
[ X< 2 I *XEST 

|J X 5 ST»XEST-XDEL 

RETURN 

C*****THIRD OR LATER CALL 
I 50 Yt 31 -YCALC 
U Xf 3 ) *XE ST 


e f no SUBSONIC OR SUPERSONIC SOLUTION 




D 

O'. 

0 


GO TO 70 
60 Ytl)«YCALC 
Xm*XEST 

70 I F( YGl V.LT.DMl Nl ( Ylil*Y( 21*713111 
75 I ND*6 

CALL PARCIX,Y,APA,RPB,CPC ) 
DISCR*BPB**2-4.*APA*(C P C-YGI V 1 

IF IOISCR.LT. 0.01 GO Tr 110 
IFCDABS(400**APA*ICPC-YGl VI) .LF.BPB**21 
XEST*-BPB-OS IGNI0SQRTI0ISCR1 *APAl 
I c I JZ.EQ.2.AN0. APA.LT.O.O) XFST*-BP8-DSQRT (01SCR1 
XEST-XEST/2./APA 

GO TO 79 

78 ACB2«APA/BP3*CCP:-YGIV»/BPB 

IFfOABSI ACB21.LE.WE-81 AC82*0.0 
XE$T*-t CPC-YGI Vl/BPBM 1. +ACB2*2. * ACP2**2 I 


GO TO 1 90 *95) » JZ 


GO TO 78 


79 IFIXEST.GT.XI 311 GO TO 95 
ifixest.lt. xim go to 90 

RETURN 

♦•♦•♦FOURTH OR LATER CALL - t NOT CH 0 XED 1 




15/27/44 


132 


rONTIN 


OATF * 750*5 


15 / 27 M* 
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* «o ipi xEST.GT.xnn so to so 

IPIXPST.l T.XIl M GO TO 60 

* VI 2 I=YCALC 

, X ( 2 )*X EST 

l GO TO 70 

^*****THlftr) OR LATE* CALL / SOLUTION EXISTS* 
C«*******gjT RIGHT OR LEFT SHIFT RFOUI®ED. 
f 90 IND -5 
t*****tEFT SHIFT 
YC 3 MYC 2 ) 

| X< 3 1 - X< 2 1 

I Y(2)*vm 

* X( 2 )*X(I) 

XEST*Xm-XDEL 

RETURN 

J 95 I NO =6 
C*****RJGHT SHIFT 
[ Y( 1 )*Y( 2 ) 

1 X(i)=X< 2 ) 

YI 2 )*Y( 3 ) 

] XC 2 I=X( 3 > 

XEST-XI 3 )®XDEL 
RETURN 

* #****I^ ipo OR LATER CALL - APPFARS TO BE CHO<EO 
f UO XEST*- 8 PB/ 2 ./APA 

-» I NO* 7 

!Flxm.LE.XEST.AND.XEST*LE,X( 3 n RFTURN 
1 IFIXFST.LT. xmi GO TO 90 

j GO TO 95 

^♦♦♦**P 3 URTH OR LATER CALL - PROBABLY CHOKED 
, 130 I F < YCALC. 6 E.YGIV) GO TO 80 
INO-IO 
J RETURN 

C******NO SOLUTION FOJND IN 50 ITERATIONS 
j 160 I NO * 1 1 
J return 

END 


J 

J 

0 

u 


SUBROUTINE FNT GU ( DX,F f N, ANS I 
IMPLICIT REAL *8 (A-H f O-ZI 
DIMENSION F ( 50) * ANSI 50 ) 

DO 10 1=1 *N 

ICCI.E0.1I ANSI t ) *0*0 

IFU.E0.2) ANS ( 2 )*DX*( F( l>+F<2)|/2.0 

I?( I .E0.3 ) ANSI 3 )*0X*( F( 1 ) ♦6.0*F( 2 )*F( 31 ) /3.0 

I P{ I.E0.4) ANSI A ) = 3.0*DX*< F( 1 ) ♦3.0*F ( 2 ) «-3.0*F(3|*FI4))/B,0 

IFU.GT.6l AN 5 Cn«ANS( I-2I»DX*CFC I- 2 )* 6 . 0 *FC I-ll ♦Fill 1/3.3 

10 CONTINUE 
RETURN 
END 


t 


level 


21 
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SUBROUTINE RL3CAT (R ,7, MX ,KMX,YR, IP,KP,NOUTI 
IMPLICIT REAl*8 IA-H,0-Z> 

01 MENS I ON R12i»2ll»Zl2l*2ll»YRt6) 

N3UT=0 
DO 20 1*1, MX 

IF{DABSIZ< 1,11-ZU ,KMX)|.LT.1.0E-12I GO TO 10 
4*(R< l ,i>-R< I.KMXI l/IZU • 1 >-Zll,XMX) ) 

R*RU,l »-A*Z(I,l» 

*TEST«A*YR<5)*B 
IF(RTEST.LE*YR(U> GO TO 30 
SO TO 20 

10 |F|Zf Itll.GE.VRISn GO TO 30 
20 CONTINUE 
30 ! P*I 

I FI IP.NE.U GO TO 40 
NOUT = 1 
RE TURN 

40 IF( IP.NE.MXI GO TO 50 

I c (R(MX,l I.LT.YPIll ) GO TO 50 
NOUT *3 
RETURN 
50 CONTINUE 

00 70 K-l.KMX 

IF (DABS<ZIIP,0-ZI IP-ltKII .LT.U0E-12I S3 TO 40 
A*|RIIP-l,K)-R< IP,K))/IZ(IP-l,K)-ZI IP, KM 
B=R( IP,K)-A*Z{IP,K) 

RTEST*A*VR|5|«-B 
IFlYRm.LE.RTEST) GO TO BO 
GO TO 70 

60 !FfZUP,K).GE.YR(5»l GO TO 80 
70 CONTINUE 
80 KP=K 

IF(KP.NE.l) GO TO 90 

NOUT *2 

RETURN 

90 IF (KP.NE.KMX) GO TO 100 

IFID4BS(ZUP,KP»-Z< IP-1, KP))*IT,U0E-12) GO TO 110 
IFCTRin.LT.RTEST) GO TO 100 
N0UT*4 
100 RETURN 

110 IF(YR(5».GE.Z(IP,KPn N0UT*4 
RETURN 
END 
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SJBR3UT INE RBCH< YR » R » Z *T »H *ET AtNOUT I 
IMPLICIT REALMS I A-M*0-Z 1 
DIMENSION YR<SWR<2WZ<2WETA<21 
IF<OABS<Z<2HZ<1 1WLT. WOE-121 33 TO 100 
IF<0ABS1R<21-R<ll Wt-T. 1.0E-121 GO TO 200 
SM*<R<2I-R<I 1IZ<Z<2HZ<1I1 
IF<0ABS<YR<6 1) .LE.i.OE-121 GO TO 10 
IF<0ABS<YR<2H *LE* WOE-12 1 GO TO 20 
PM«YR<2I/YR<61 

ZB«<Z< ll*SM-YR<5 )*PM*VR< 11 -R <111/1 SM-PMI 
R3«SM* < ZB-Z( 1 1 1 *R < 1 1 
GO TO 30 

10 ZB* YR < 5 1 

R9*SM*<ZB-Z<11WR<I> 

GO TO 30 

20 RB*YR< L 1 

ZB*<RB-R< 1 ) )/SM*Z< 11 
GO TO 30 

100 I c <0ABS<YR<2)l«LT*l*0E-121 GO TO 110 
PM*YR< 2 1/ YR < 61 
RB*PM* <Z<1)-YR<51)*YR<1) 

ZB*Z< l) 

GO TO 30 

110 RB*YR<D 
ZB«Z<1) 

GO TO 30 

200 I C <DABS< YR<61 WLT. l.OE-121 GO TO 250 
PM*YR< 2 )/YR< 61 
RB* R < 1 ) 

ZB*< R8-YRI 1 1 1/PM+YR<5) 

GO TO 30 

250 RB*R < 1 ) 

ZB*YR<5> 

30 D6P*DSQRT<<RB-YR<1I l**2M ZB-YR<51 1**21 
VM*DS3RT<YR< 21**2+YR<6 1**2» 
dt*h-dbp/vm 
TB=YR < 3 I ♦YR < 4 ) POBP/VM 

G AMMA*OAT AM2 <<R<2)~R<lllt(Z<2l-Z<l)l) -1.570T963 
ALPHA*DATAN2<YR<2 W YP<61 } 

VN*VM*DCOS < G AMMA-AL PHA ) 

VTR*VM*OSIN< GAMMA-AL^HAl 
VMP*-VN*ETA< 11 
VTRP*VTR*ETA<2) 

YR<AWYR<41PETA<21 

VMP*OSORT < VNP**2«-VTRP**2 1 

BETA*0ATAN2<VTRP,-VNP1 

YR<21=-VMP*0SIM<GAMMA*>BETAt 

YR <61*-VMP*DC0S< GAMMA* BET A 1 

YR < l WRB* YR ( 21 *0T 

YR<3)*TB*VR<41*3T 

YR<51*ZB«-YR<5t*0T 

T*T>M 

RETURM 


ENO 
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iSVfcl 21 


SPLINT 


DATE * 750*5 


15/27/44 


SUBROUTINE f.PLPJT I X ,Y ,N ,Z ,MAX, Y I NT) 

IMPLICIT REAL-* 8 U-H.O-Z ) 

01 MENS ION X153) ,Y150), SI 50 ) » A 1 50 ) » BI 50 ), Ct 50) , F I 50) ,U|50), SBC 50) , 
IG( 50) , EMI 50) ,Z( 50) , YINTI 50) 

COMMON 0 
INTEGER 0 
03 13 1*2, N 

si i )*xi n-xt i-i) 

10 CONTINUE 
Nf)*N-l 


0 


20 


00 30 1*2, NO 
A ( I )*S( D/6.0 
BI I ) = ISl msu*l) )/3.0 
ci i ) = si un/6.0 

FI I )*( YI 1*1 )-V« I ) )/S«! n )-(YI D-YCI-l) l/SIII 


AIN)*-. 5 
Bt L)*l.O 
8tN)=l.O 
CI I )=-.5 

Ft n*o.o 

FI N)=0.0 
tf( 1)*BI I) 

SB I l)*CIl)/WIl) 


Gt l ) *0 *0 

|l 30 30 1*2, N 

0 W( I)*B( I)-AII)*SBI I-i) 






65 



SB 1 1 )*C 1 1 )/WII) 

GI I)*I F( D-AII 1*611-1) )/Wt I) 

EMIN) *GIN) 

DO 40 1*2, N 
K*N*1- I 

CMIK)*G(K)-SBI<)*EMIK*1) 

03 90 1*1, MAX 
K = 2 

IFIzm-XllH 63,50,70 
YINTI I ) *Y 1 1 ) 

G3 TO 90 

IFCZII ).LT. 1 1.1KXI1 )-.l*X<2) ) )WRITE I6,1030)Z( I) 

GO TO 85 

FORMAT U7H OUT 3F RANGE Z AF10.6) 

IF(ZII).ST.tl.l*XIN)~.l*M(N-l) I) WRITE (6,1000)Z(I) 
K*N 

GO TO 85 

I*=t ZII )-XIK) ) 85,75,80 
YINTI l )=YIK) 

GO TO 90 
K*K*1 


X 


IFOC-N) 70,70,65 

85 YINTII) = EMIK-I )* IX IKI-ZI I) )**3/6*/SIO*EM(K )*I Z( IJ-XIX-l) )**3/6. 
l/SI K ) ■►( Y(K)/StK)-EMtK)*StK)/6.)MZ< I )-X€K-l) )♦< Y U-i )/S I K ) -EMI K- 1 ) 
Z*S(K)/6.)*IXIK)-ZI I )) 

90 CONTINUE 

MXA * MAX0(N,MAX) 


0020 


0063 


OOBO 

0090 

0100 

0113 

0120 

3133 

0140 

0150 

0163 

0170 

01*0 

0190 

0200 

3213 

3223 

0230 

3243 

0250 

0260 

0270 

0280 

0290 

0303 

0310 

3323 


0410 

3420 


0450 


Example 

The example case presented here used the ft., slug, second 
system of units. The gas flow conditions correspond to inlet 
stagnation conditions of standard sea level air. The output 
that describes the mass flow through the turning vortex is 
contained on the first 5 pages of the output here. The output 
variables are the gas angle with respect to the meridional plane, 

0, and the velocity in terms of V/V cr - 

The particle used in the example has a specific gravity of 3 
and a diameter of approximately 24 microns. Initially the 
particle has a velocity in the tangential direction with a 
velocity of 1000 rad/sec. The trajectory data indicates that 
this particle moves outward until it strikes the outer surface, 
where it bounces. The bounce drives the particle back into the 

inlet of the turning vortex. 

The following pages contain a computer code sheet with 
the data arranged in the prefer columns, and the output for 
this example. 
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i 


EVEL 21 


SPLINT 


DATE * 75045 


15/27/44 


_ ICI0.E0.16) WRITFI6.1010) N.MAX , I XI I ) »Ym f Z< I ) ,Y INT 1 1 1 ♦ I«l*NXA ) 

llOLO FORMAT (2X21HN0. OF POINTS GIVEN «,I3»30H» NO. OF 

■ 1MTS A 1 1 3* /10X5HX 15X5HY l2XilHX-INTERPOL«9XllHV-lNTERPDL«/t4 


2E20.8) ) 
100 RETURN 
END 


fi 


0 

0 






D 


0 

D 



SUBROUTINE POL AT E < R , Z, A ,RP, ZP, IP. KP, AP, DO) 
IMPLICIT REAL*8 CA-H.O-Z) 

DIMENSION RI21.2U ,Z(2l .21), AI21 . 21 ) .0(21.0012) 

00 10 1 - 1,2 

IA-IPM-I 

IF(OABSIZ(IA,KP-l )-ZUA,KP)).LT. l.OE-12) GO TO 5 
IFIDABSIRC IA,KP)^RIIA,KP-l)) .LT.l.OE-12) GO TO 6 
AM-IRIIA.KP)— RIIA, KP-l ) ) /( ZI I A, XP ) -Z I I A.KP-l ) ) 
81-RUA.KP-l )-AM*ZU A.KP-l) 

B2-RP+ZP/AM 

ZA-CB2-B1 ) *AM/ 1 AM **2*1.0) 

RA-B2-ZA/AM 
GO TO 10 

5 RA»RP 

ZA-Z CIA, KP-l) 

GO TO 10 

6 RA-R I I A»KP— 1 ) 

ZA-ZP 

10 01 I)-0S0RTURA-RP)**2*(ZA-ZP)**2) 

0T*0m+DI2) 

AA-IOI 1)*AI IP,KP-l)*-DI2)*AIIP-l»KP-ll)/0T 
A8-(0(1)*A( lP,KP)fD(2)*Al IP-l.KP) )/DT 
00 20 K-1,2 
KA-KP-K+l 

RC*I0(1)*R( IP.KA)+DC2)PRI IP-l.KA) )/DT 
ZC-<Otl)*ZI IP,KA)+D12)*ZI IP-l.KA) )/0T 
20 03IK)*DSQRTf ( RP-RC ) **2'M ZP-ZCI**2) 

DT«OD( l )+0D<2> 

AP«tDD< l)*AA*00< 2)*AB)/DT 

RETURN 

END 


SUBROUTINE RNUM8R ( RENOLO , OGFC ,C0) 

IMPLICIT REAL*8 U-M.O-Z) 

I s ! DABS I RENOLO) .LT.l.OE-12 ) RENOLD-l.OE- 12 
I F ( RENOLO.LT .1.9) GO TO 26 

IFKRENOLD.GE.l.Ol.AND. {RENOLD.LT. 1.0E3) ) GO TO 27 

CD-DGFCP0.4 

RETURN 

26 CO-DGFC*! 4.5*24. 0/REN0L9) 

RETURN 

27 ARE-DLOGI RENOLO) 

C0*(28.5-24.0*ARE+9.0682*ARE**2-1.7713*ARE**3+0.1718*ARE**4 
l -0.0065*ARE**5)*0GF: 

RETURN 

ENO 


0 


ID 


0460 

0470 
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ItWT OAT! 
M 
1ft 


II 

0.00153 


•I 

0.20 see 


M 

C.2C7S0 


P4**4 Cft 

1.4000 *312.4(10 


- HI - ftHCl- ~ hTft- 

512.700 C. 226000-02 O.SS0CCC-C1 


40. « • It 7 

-O.IAA64R-01 -0.211*10-01 -0.25M20-CI ~C. 302500-01 -0.34750C-C1 -0.39250C-01 


Al AHA . I « 1. 10 
0.A -4,4000 

-44.900 -40.000 


-11.500 


-40.500 


■50.2*0 


-0.433330-01 


-*2c10C 


1 1*404. Kb). 7 

714,40 714.77 214.44 215.11 215.2* 215.45 


215.40 


1 


tm fOTKonwi mi*m« is i 


* out 

r.»ii4i6e:i 

«!. 7166670 

0.3133310 

0.3177501 

0.3222500 

0.32(7500 

0.330(330 

2 

n.n 

0.0 

0.0 

0.0 

€.0 

0.0 

0.0 

or mu* 
-iceoo.OA 

-MC00.CC 

-loceo.oo 

-lOOUO.OO 

-10600.00 

-10000.00 

-10000.00 

0.0 

0.0 

0.0 

0.0 

0.0 

e.e 

c.e 

i imm 

2I4.T7CJ 

714.94C0 

215.11CO 

213.2(00 

215.6500 

215.6000 

*7»l Ft 

fl. 15 494440 -01 







76.66447 

74.64041 

76.(6(43 

76.72123 

76.64327 

76.66754 

76.43442 

6 IMlt 

6.71*4147 

0.700(106 

0*6413(17 

0.6022176 

0.(733004 

0.(646227 

0.65(1(00 

ik rrmccnkJi 

M*6M IS 2 







• |t»*Y 

*•71)41(176 

7 IIMI 

o.««*»Tsn-o> 
K nm 

-i».!AM*eon-oj 

-♦.Y'Tceo 

I l»W» 

> 14.4000 

klllM 

B.n»occon-ot 
y !»•»▼ 


0. WSC72 

o.*?ii?ein-c? 

-o.?H67tcn-oi 

-4.*caccc 

71.66740 

O.T1427C7 


0.3132474 
0.46(1(00-02 
-0.25(3*000 -01 

-4.<coeco 

214.94(0 

74.54437 

0.64(06*2 


0.317643- 
0.5031252D-02 
-0.3025001. 0-01 
-4.6UU0U'- 
215. HOi 

76.74401 
C. 662311 


e. 3221 261 
€.5407(020-02 
-C.347500CD-01 
-4.(00000 
215.2600 

7C.36662 

0.6(521(5 


0.3266123 
C. 57843520-02 
-0.35250000-01 
-4.600000 
215.4500 

76.67630 
C. 6576266 


C.3306610 
0.61260060-02 
-0.43333000-01 
-4.6(0000 
215 .6006 

U.16C05 
0.6471542 
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16f future*!* M IS 3 


• Milt 

0.10VU»4* 

O.10747'7 

f.JHHIC 

G,314>16<.8 

C. 3204543 

C. 3247217 

0.3265437 

7 IUIV 

«. 77**1140-07 

c.uievi'fr-c? 

C.1C696120-0I 

0. 1201 >1**0— Cl 

C. 13326320-01 

0. 1415*110-01 

0.16244750-01 

ir <miv 

..1.1****r.»0-<11 

-3.7I1<i7C<.0-«!1 

-r.?se«cco-cj 

-C. 10250 V.J0-C1 

-X. 34 (SOU CO-01 

-0.31250000-01 

-X.4333300D-01 

- 1 r.ionoo 

-lft.*OCOC 

-ic.socxa 

-1 0.50000 

-1*. 50000 

-16.50000 

-16.50000 

liwu 

7IM0D0 

7i*. net 

21*. 14(6 

215.11 JO 

213.2600 

213.4500 

215.(000 

kill M 

c.iiiimc-oi 



„ 




* 7 . 7*011 

7i .*m* 

74.362X1 

74.72264 

76.33637 

71.47541 

61.14413 

0.T41M14 

0.7 ,*00711 

C.7(C47(3 
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Q„ 30*6112 
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0.24164460-01 

•r win 
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-0. 2!*3JCOO-Ol 

-0.30250000-01 

-C. I 4750000-01 

-0.34 250000-01 
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■ifMi win 
•40.00000 

-lO.JdCCC 

-1C.C0CCC 

-30.00000 

-3X.COOOC 

-30.00000 

-30.00000 

1 IMPI 
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214.770X 

214.14(0 

215.1100 
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215.4500 

215.6X06 

Of II M 
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*7.40*0* 

71.71 TIC 

74.30170 
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74.(7337 

• 1.12160 

0 OOOOI 
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0.77* Iff* 

C. 1(31717 

0.69113*2 
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C. 6461101 

0.6564(50 
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* ip»it • — 

f.WViWI 

g,vmw 

0.10102*0 

V.3103/.4* 

€• 3 1*7*59 

0*1171073 

(.3202534 

7 HIM 

o.mtioon-ot 

o.i*34M5R-6i 

0.1541*900-01 

0.22303090-01 

0.25252220-01 

0. 2*140550-61 

0.30071000-01 

*C HMf 

•0.1*6**0011-01 

-0.2I147CCR-C1 

-c.aimcoo-cj 

-C.3029C000-01 

-0. 347500CC-O1 

—0.39250000—01 

-0.43333000-01 

IIIM IMIY 
-4C.C00C0 

-«o.<occt 

-4C.900CC 

-40.90000 

-4C.50C0C 

—40*90000 

-40.50000 

t**m* 

n*.fCo 

m.n» 

214.94(0 

2I3.1ICO 
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215.4500 
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ktn m 
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70.31270 
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V »M» 
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0*0*03304 
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DISCUSSION OF RESULTS 

The programs that are included here illustrate the general 
complexity of the problem of determining particle trajectories 
in a turbomachine. In tracing the particles all the way through 
a radial inflow turbine, the constantly changing nature of the 
flow requires that each region of the flow be considered indi— 
vidually. These programs are used to study the particle tra- 
jectories through each of these regions. 

* 

The programs have been developed over a three year period 
and some of the programs have subroutines that were stepping 
stones to the more complex routines that are explained in the 
section entitled, "General Numerical Techniques". Users of 
these programs might consider improvements by using the sophis- 
ticated subroutines instead, particularly the programs that do 
not allow variable particle restitution coefficients. The sub- 
routine RESTCO , explained previously, can be used to describe 
in general the restitution coefficients. Experience has shown- 
that the use of constant restitution coefficients less than 1.0 
causes the particles to come to rest. 

Several other programs, specifically the SCRL2D and STATOR 
programs could be improved with the addition of more realistic 
boundaries. In the scroll program, the solution of the gas flow 
is one-dimensional and the particle trajectories are two-dimensional. 
A better solution of the gas flow in this region might provide a 
slightly different particle trajectory pattern. In the stator 
program, the hub to shroud distance has been assumed constant, 
although in most real turbines, this distance is a function of 
the radius. Inclusion of this factor might lead to some interest- 
ing results in the study of particle trajectories in the radial 
turbine. These programs could be the basis of a very large program 
that could use a Monte Carlo Technique to study erosion rates from 
turbine internal surfaces. 
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CONCLUSIONS 

This report has presented the computer programs that have 
been used to study the trajectories of particles in the radial 
inflow turbine. These programs can be used to investigate the 
trajectories of particles in radial inflow turbines , and provide 
information concerning the locations where particles strike the 
surfaces. This information can be used to predict the areas 
most subjected to erosion damage , in radial inflow turbines. 
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Coefficient of Number Value of Coefficient 


1.819024 



5.117122 

- 49.252858 
131.035284 

-174.424912 

117.872348 

- 24.478854 


- 16.729740 


11.230019 
- 1.979996 


*Angles expressed in radians 


Table 2. Coefficients of Polynomial 
Describing Variation of 
Normal Restitution Coefficient 
with Incidence Angle* 

Coefficient of Number 

Value of Coefficient 

1 

5.721469 

2 

- 41.880784 

3 

178.168464 

4 

-424.388179 

5 

572.763055 

6 

-406.662526 

7 

87.142750 

8 

70.651124 

9 

- 50.498187 

1 10 

9.676744 


*Angles expressed in radians 
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GAS FLOW INTO TURBINE 
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GAS FLOW OUT 
OF TURBINE 


FIGURE 1. SCHEMATIC OF TYPICAL RADIAL INFLOW TURBINE 
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FIGURE 3. TYPICAL FLOW CHART 
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Surface 1 



FIGURE 5. FIRST TYPE OF BOUNCE NEAR SURFACE NODES 



describe surface, 

FIGURE 6. SECOND TYPE OF BOUNCE NEAR SURFACE NODES 





Normal Restitution Coefficient 


Materia 1: 

Surface -_2024 Aluminum 
Particle - Si0 2 
O Data given in Reference 6 



FIGURE 10. INFLUENCE OF INCIDENCE VELOCITY ON NORMAL RESTITUTION 
COEFFICIENT 



Tangential Restitution Coefficient 


Material: 

Surface - 2024 Aluminim 
Particle - S10 2 
O ®*ta given In Reference 6 

for Incidence velocity - 76.2 n/seo. 



FIGURE 12. INFLUENCE OF INCIDENCE ANGLE ON TANGENTIAL 
RESTITUTION COEFFICIENT 


Tangential Reatitution Coefficient 


Material^ 

Surface -2024 Aluminum 
Particle - SlOg 
O Seta given in Reference 6 
for incidence angles of 45°. 



Incidence Velocity meters /second 


FIGURE 13. INFLUENCE OF INCIDENCE VELOCITY ON TANGENTIAL RESTITUTION 
COEFFICIENT 



Tangential Restitution Coefficient 


Material.! 

Surface 2024 Aluminum 
Particle - S10 2 



FIGURE M. TANGENTIAL RESTITUTION COEFFICIENT 
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|R(IP-1,KP),Z(IP-1,KP)] 



[r(IP,KP-1),Z(IP,KP-1)] 


FIGURE 15. TYPICAL GRID CONFIGURATION USED IN POLATE 
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FIGURE 16. 


GAS VELOCITY VECTOR 



M AMI 1 r/?ICAL GAS VELOCITY COMPONENTS 



FIGURE 17. PARDIM FLOW CHART 
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VERTICAL VERTICAL 



SIDE VIEW FRONT VIEW 

FIGURE 18. ORIENTATION COORDINATES 
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NOTE: Data must be input from first to last orthogonal 
and from first to last streamline . 


FIGURE 22. NOZZLE GEOMETRY AND COORDINATE SYSTEM 
USED IN STATOR PROGRAM 
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FIGURE 23, ROTOR FLOW DIAGRAM 




FIGURE 2H. VANPY FLOW DIAGRAM 
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FIGURE 25. COORDINATE SYSTEM USED Ifl VANPY COMPUTER PROGRAM 
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